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SUMMARY 


Described in this report are two user-oriented computer programs, 

JET 5a and CIVM-JET 5B to predict transient, large, elastic-plastic deflec- 
tions of single-layer or multilayer (3 layers or less) Bernoulli-Euler 
structural rings which may be subjected to fragment impact (CIVM-JET 5B) , or 
prescribed externally- applied transient loading, and/or prescribed initial 
velocity distributions (handled in JET 5 a) . These structural ring deflections 
lie essentially in one plane and, hence, are called two-dimensional (2~d) . 

The structural rings may be complete or partial; the former may be regarded 
as representing a "fragment containment ring" while the latter may be viewed 
as a 2-d fragment-deflector structure. These two types of "rings" may fee 
either free or supported in various ways (pinned-fixed, locally clamped, 
elastic-foundation supported, mounting-bracket supported, etc.). The initial 
geometry of each ring may be circular or arbitrarily curved; uniform-thickness 
or variable- thickness rings may be analyzed. Strain-hardening and strain- rate 
effects of initially- isotropic material are taken into accoiant. 

An approximate analysis utilizing kinetic energy and momentum conserva- 
tion relations is used to predict the after-impact velocities of each fragment 
and of the impact-affected region of the ring; this procedure is termed the 
collision- imparted velocity method (CIVM) and is used in the CIVM-JET 5B pro- 
greun. This imparted-velocity information is used in conjunction with a finite- 
element structural response computation code to predict the transient, large- 
deflection, elastic-plastic responses of the ring. Similarly, the equations 
of motion for each fragment are solved in small steps in time. 

Provisions are made in the CIVM-JET 5B code to analyze structural ring 
response to impact attack by from 1 to 3 fragments, each with its own size, 
mass, translational velocity components, and rotational velocity. The effects 
of friction between each fragment and the impacted ring are included. 
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SECTION 1 


INTRODUCTION 

The JET 5A and the CIVM-JET 5B computer programs described in this 
report are additions to the series of computer programs which are intended 
to be made available to the aircraft industry for possible use in analyzing 
structural response problems such as containment/deflection (C/D) rings 
intended to cope with engine- rotor-burst fragments. These computer programs 
may also be applicable (a) to crashworthiness problems which are of interest 
to the automobile industry and (b) to nuclear power plant protective struc- 
tures. 

The features and capabilities of both the present computer programs 
and earlier ones developed under NASA NGR 22-009-339 are given in a conven- 
ient informative tabular summary in Appendix C together with supplementary 
descriptive material. The reader is urged to examine the Appendix C infor- 
mation in order to make an assessment of which one (or more) of these 
programs might best suit his particular application, since each computer 
program has its own specific capabilities and limitations. With regard to 
the type of applications accommodated, only programs CIVM-JET 4B and 
CIVM-JET 5B pertain to ring structural response induced by fragment impact ; 
the remaining computer programs cited in Appendix C deal with the transient 
structural responses of rings which are subjected to prescribed (1) transient 
distributed external loads or (2) a distributed initial velocity field. 

The JET 5 a and CIVM-JET SB programs, written in FORTRAN IV, permit 
one to predict the large-deflection, two-dimensional, elastic-plastic 

transient Bernoulli-Euler response of a multilayer^, multimaterial, hard- 

Id 

bonded ring, which may be either a complete ring or a partial ring. The 
ring may be siibjected to various restraints and supports, including "ring 
support brackets" (which are treated as "branches") and elastic foundations. 

a: The programs are restricted to 3 or fewer layers but the formulation 

applies to an arbitrary number of layers. 

b: This means that the displacements are defined to be continuous at 

layer interfaces. 


The geometrical shape of the structural ring can be simple circular or 
arbitrarily curved, and each layer may have independently-varying thickness 
along the circumferential direction. The material behavior of each layer 
may be, elastic, strain-hardening, and/or strain-rate sensitive. Both of 
thejse programs employ the spatial finite-element representation of the ring 
and the temporal finite-difference solution procedure. 

The JET 5A computer program is designed to analyi:e full rings or 
partial rings subjected to initial impulsive loading and/or prescribed 
externally-applied time-dependent forces. On the other hand, the CIVM-JET 5B 
computer program is designed to analyze the transient responses of structural 
rings subjected only to rigid-fragment impact. These programs were written 
in parallel and the main body of the program and input were kept the same 
to ease the transition from one to the other by the user. The following 
section of the user's guide will first describe the portion of these programs 
which are the same and then detail any differences. The governing equations 
and the solution procedures common to both programs are outlined in Appendix A 

In the CIVM-JET 5B code for predicting the transient responses of 
structural rings siibjected to rigid-fragment impact, energy and momentum 
considerations are employed in an approximate analysis to predict the 
collision-induced velocities which are imparted to the fragment and to the 
affected ring segments. The presence of surface friction between the ring 
and the impacting fragment is taken into account. The pertinent analytical 
development and the solution methods which are unique to the CIVM-JET 5B 
program are presented concisely in Appendix B. The reader is invited to 
consult Refs. 1, 2, 3, and 4 for background information and a more detailed 
description of this solution procedure. 

Section 2 of this report is devoted to describing the general organiza- 
tion and capabilities of each of these programs. The ring structural 
geometry, supports, elastic restraints, and materials properties accommo- 
dated will be described for both programs. The initial- velocity and pre- 
scribed external-loading provisions and the associated solution procedure 
for JET 5 a are described. Then the fragment-ring collision-interaction 
analysis procedure and the associated transient response solution procedure 
for CIVM-JET 5B are discussed. 
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Next in Section 3, the main programs and subroutines for both of 
these programs are described. Since the formulation and solution of these 
programs is quite similar, many of the subroutines are used interchangeeibly 
between the two. These common subroutines are described first and then any 
subroutines particular to each of the programs are listed. This procedure 
will be followed throughout the remainder of this user's guide. Included 
in Section 3 is a partial list and explanation of the variable names used, 
first those common to both JET 5A and GIVM— JET 5B and then those variable 
names particular to each separate program. 

A discussion of the conventions used in JET 5A and a detailed explana- 
tion of the required input and its resulting output follows in Section 4. 
Section 5 is a similar presentation for CIVM-JET 5B including only that 
information which differs from that which is common to JET 5A. A complete 
listing of the FORTRAN IV code for all of the subroutines, first those 
common to both programs and then those particular to each program, appears 
in Section 6 . 

Illustrative examples of the use of JET 5 a and CIVM-JET 5B are given 
in Subsections 7.1 and 7.2, respectively of Section 7. These examples are 
presented with their associated input and output as illustrations of the 
capabilities of these programs, and to aid the user in checking the adapta- 
tion of these programs to his computer system. 


SECTION 2 


GENERAL DESCRIPTION OF THE JET 5A AND THE CIVM-JET 5B PROGRAM 

Both of the cited programs are described briefly in this section. 

Common to both programs are ring geometry, supports, elastic restraints, and 
material properties; accordingly these matters are discussed in Subsection 2.1 
Features that are unique to the JET 5A code include (a) the initial- velocity 
and external- loading options and (b) the associated solution procedure; these 
matters are discussed in Subsections 2.2 and 2.3, respectively. Since 
CIVM-JET 5B accommodates only structural response to fragment impact. Sub- 
section 2.4 contains a description of the ring-fragment collision- interaction 
analysis and the associated solution procedure. 

2.1 Ring Geometry, Supports, Elastic Restraints, and Material Properties 

In the present analysis, the transient structural responses of the ring 
are assumed to consist of planar (two-dimensional) deformations. Also, the 
Bernoulli-Euler (or Kifchhoff) hypothesis is employed; that is, transverse 
shear deformation is excluded. 

Both the JET 5A and the CIVM-JET 5B computer programs can treat multi- 
layer structural rings. Each layer may be of different material, but perfect 
bonding at each interface is assumed and hence the displacement fields are 
continuous across each interface. In addition, each layer may be of indepen- 
dently-varying thickness; however, the total thickness remains small compared 
with the circumferential dimension of the ring. The cross section of each 
layer is assumed to be rectangular in shape, and the centroidal axis of a 
conveniently- chosen* layer (see Fig. 1) is employed as the circumferential 
reference axis of the multilayer ring. 

The structure can be either a complete or a partial ring. The geometric 
shape of the circumferential axis of the ring can be circular or arbitrarily 
curved. The outward- normal direction is defined in such a manner that as one 
moves along the circumferential axis in the positive ri direction from an 
arbitrary reference point, the outward- normal direction is always toward 
one's left as shown in Pig. 2, where XYZ is the global reference Cartesian 
coordinate system with the X-axis pointing out of the paper. At any point 
on the circumferential axis, i is a local unit vector defined in the same 
* ■ 

See Appendix A. 
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direction as the +X axis, a is a unit tangent vector along the positive 
circumferential axis direction, and n is a unit outward- normal vector which 
is defined by the right-hand rule as n = i x a. Once the positive circum- 
ferential direction is defined, the outward-normal direction is then 
detemmined accordingly (see Fig. 2) . For the CIVM-JET 5B code, the posi- 
tive circumferential direction must be chosen so that the positive outward- 
normal is directed toward the "outside" of the C/D structure such that 
fragment impact can occur only on the "inside" of the C/D structure. 

In the spatial finite- element analysis, the ring is represented by an 
assemblage of discrete (or finite) elements compatibly joined at the nodal 
stations . The geometry and nomenclature of a typical arbitrarily curved 
ring element are shown in Fig. 3, where the deformation plane is ri»C the 
coordinates r) along, and C outward- normal to the centroidal axis of a con- 
veniently-chosen layer are employed as the reference coordinates of the 
multilayer beam element. The nodal number is increased along the positive 
circumferential direction. 

The behavior of each finite-element is characterized by a knowledge of 
the four generalized displacements: v, w, ifj = (3w/3ri) ~ (v/R) , and / “ Ov/9ri) 
+ (w/R) at each of its nodal stations where v and w are the reference plane 
displacements in the circumferential and the normal direction, respectively; 

R is the radius of curvature. The displacement within each finite-element 
is represented by a cubic polynomial in R for the circumferential displacement 
V and a cubic polynomial in R for the normal displacement w, anchored to the 
four generalized nodal displacements at each node (see Appendix A and/or 
Ref. 1 for further details) . For application to arbitrarily-curved, variable- 
thickness, ring structures, the finite elements are described by reading in 
at each nodal station the global Y and Z coordinates, the slope (the angle 
between the tangent vector and the +Y axis), and the thickness of each 
layer. Within each finite element, the slope is approximated by a quadratic 
function in R and the thickness of each layer is approximated as being 
piecewise linear between nodes. 

As for the support conditions of the structure, these programs include 
three types of prescribed nodal displacement conditions (see Fig. 4a): 

(1) Symmetry* (v = ij; = 0) 


* 

Not accommodated in CIVM-JET 5B 
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(2) 

Ideally-Clamped 

(v = w = = 0) 

(3) 

Smoothly-Hinged, Pinned 

II 

II 

p 


and two types of elastic restraints (see Fig. 4b): 

(a) Point elastically restrained (elastic restoring spring) at given 

locations (3 directions: normal, tangential, and rotational) 

(b) Distributed elastically restrained (elastic foundation) over a 

given number of elements (3 directions: normal, tangential, and 

rotational) . 

A global effective stiffness matrix supplied by the elastic foiindation and/or 
the restoring springs will be evaluated in the program from the virtual-work 
statement for cases in which the structure is subjected to one or both of 
these two types of elastic restraints. 

The 2-d containment/def lector (C/D) structure may also be regarded as 
being supported by attachment brackets as depicted, for example, in Fig. 4c. 
These attachment brackets (or branches) are idealized to behave in the 2-d 
fashion shown in Fig. 4d. These brackets are modeled as consisting of a 
single- layer, variable- thickness, 2-d structure of arbitrary initial shape 
in the plane of the C/D structure, and are connected compatibly with the 
C/D structure; the other end of each bracket may be supported in any of the 
common fashions (clamped, pinned, elastic support, etc.). The programs 
provide for a maximum of five support brackets. In the fragment attack 
(CIVM-JET 5B) usually only the C/D structure suffers physical impact; 
however, if the analyst has a physically plausible situation wherein the 
idealized support bracket could be impacted by a fragment (such a case is 
depicted in Fig. 4d) , the impacted portion must be defined as the main C/D 
structure since impacts on a branch are not accommodated in the program. 

It should be noted, however, that the actual brackets in the bracket- 
supported C/D structure (see Fig. 4c) must undergo 3-d deformation — this 
aspect is not accommodated in the present 2-d model. Finally, a support 
bracket (or branch) may be attached to any nodal station of the main 2-d 
C/D structure. 

Each layer of material can be of elastic, or elastic, perfectly-plastic 
or elastic-strain-hardening behavior, and the material properties of each 
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branch can vary from the properties of the main structure. The strain-rate 
effects of the material can also be taken into account. In the present 
analysis, the strain-hardening material is accounted for by using the 
"mechanical sublayer model" (Ref. 1) . A useful feature of this model is 
its inclusion of kinematic hardening and the Bauschinger effect. The strain- 
rate effect is approximated by assuming that the uniaxial stress-strain curve 
is affected by strain-rate only by a quasi-steady increase in the yield stress 
above the "static" value (Ref. 1). 

Cl : 

2.2 Initial-Velocity Provisions and/or Externally- Applied Forces for JET 5A 

2.2.1 Initial Velocity Provisions 

The initial velocity distribution is specified by reading in the initial 
nodal velocities. Three ways are available to describe these distributions 
(see Fig. 5); 

(1) Arbitrary distribution by prescribing nodal initial velocities, v, 
w, and ip at certain nodes of the structure. 

(2) One or more local uniform initial normal velocity values, w, dis- 
tributed over certain elements of the structure, and/or 

(3) One or more local sine-shaped distributions of initial velocity in 
the normal direction, distributed over certain elements of the 
structure. 

2.2.2 Transient Externally- Applied Prescribed Loads 

The transient externally-applied loads, F(n»t) are assumed to be express- 
ible as 

F('^lt) " Kt) (2.1) 

where g(n) is the prescribed spatial distribution function and f(t) denotes 
the amplitude time history. These quantities are described in the program 
as follows (see Fig. 6) : 

(a) The function f (t) can be arbitrary a]f>d is represented by a series 
of coordinates in time which specify values of characteristic two- 
component (normal and circumferential) force-versus-time curves. 




The program then linearly interpolates between time points to 
obtain values of forces at intermediate times by: 




(2.1a) 


T 

' mfl 


z, 


(b) 


where f and f are the amplitudes of the forces at some user- 
m m+1 

specified times T and T The quantity f(t) is found by this 

m m+1 

interpolation in the time interval (T to T , } linearly in terms 

m m+1 

of f and f 

m m+1 

The spatial distribution of the forces acting on the ring is described 
through the following three forms; 


(1) One or more concentrated loads prescribed at certain locations. 

(2) One or more local uniform load distributions specified over 
given numbers of elements . 

(3) One or more local half sinusoidal-shape load distributions 
specified over given numbers of elements (this distribution 

is approximated as being piecewise linear within each element) . 

Corresponding to this general distribution of externally-applied loads, 
a set of virtual-work equivalent (or consistent) nodal loads is evaluated in 
the program . 


2.3 Solution Procedure for JET 5 A 

The spatial finite-element approach is utilized in conjunction with the 
Principle of Virtual Work and D'Alembert's Principle to obtain the equations 
of motion of the structural ring which is permitted to undergo large-deflection 
elastic-plastic transient deformations. In the interest of conciseness and 
convenience in this report, the user is invited to consult Ref. 1 and/or 
Appendix A for a detailed derivation and discussion of the equations of motion. 
For present purposes, it suffices to note that the governing equations of 
motion for the complete assembled discretized structural ring may be written 
in the following form: 


K]R*) *([K‘] W " -{F"j -ff/j •{!>"■} 


( 2 . 2 ) 
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::r:r^?3csws5 ■ 




ir 


r .s:r^jL^ius a:,-»ie«a 



where 

{q*} and {q*} are the global generalized displacement and acceleration. 

[M*] is the consistent mass matrix of the complete structure. 

[K*] is the usual stiffness matrix of the complete structure. 


[K*] 

s 


represents the effective stiffness matrix supplied by 
the elastic foundation and/or the restraining spring. 


{f*} 


a 


P 


frp ) 


denotes the prescribed externally-applied generalized 
loading acting on the structure. 

represents a "generalized loads" vector arising from 
large deflections and is a function of quadratic and 
cubic displacement terms — a nonlinear force contri- 
bution. 

is the generalized loads vector arising from the 
presence of plastic strains, and is associated with 
the linear terms of the strain-displacement relations. 

is a generalized loads vector of origin similar to 

f*Li 

{F ) but is associated with the nonlinear terms of the 
P 

strain-displacement relations. 


The resulting equation of motion, Eq. 2.2, is solved through the use of 
the Houbolt operator (4-point backward finite-difference operator) whereby 
one obtains a recurrence equation which provides a solution step-by-step in 
finite-time increments. In the following, the general solution process is 
described briefly. 

First, information is provided to define the geometry of the ring includ- 
ing its prescribed-displacement conditions and elastic restraints. In addition, 
the ring material property constants, and the prescribed initial velocity and/or 
the prescribed applied transient external loading are defined. Also defined 
are the structural discretization information and numerical integration data. 

It should be mentioned that Gaussian quadrature is employed in the present 
analysis to evaluate the element-property matrices — this requires that the 
stresses and strains be evaluated at a selected finite number of Gaussian 
stations over the "spanwise" and depthwise region of each layer of each finite 
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element. Next, the mass matrix and the stiffness matrix for the entire 
structure are evaluated by assembling the element mass and stiffness matrices. 
Then the proper prescribed displacement conditions are imposed and a reduced 
mass matrix and stiffness matrix are obtained by deleting the corresponding 
rows and columns associated with those generalized displacements which are 
prescribed to be zero. Also constructed are the discrete-element property 
matrices that do not change with time (and remain constant throughout the 
program) , such as the matrices relating strain to the nodal generalized dis- 
placements, the equivalent nodal load vector and actual externally-applied 
load transformation matrices, etc. 

Starting from a set of given initial conditions at time t^ on the general- 
ized nodal displacements, nodal velocities, and externally-applied forces, the 
generalized nodal displacements and displacement increments are computed for 
the first time increment At. Next, the strain increments developed from t^ 
to t^ at every Gaussian station (or point) required over and depthwise through 
each finite element are calculated. From a knowledge of the prescribed initial 
stresses (if any) and the strain increments, one can determine the stress incre- 
ments, the stresses and/or the plastic strains and the plastic strain increments 
through the use of the pertinent elastic-plastic stress-strain relations includ- 
ing the plastic yield condition and flow rule. Next, one can calculate the 
equivalent generalized load vectors arising from large deflections and plastic 
strains. Also, the prescribed generalized load vector representing the ex- 
ternally-applied loads at the present time step is calculated. Then, the 
proper recurrence equations, which is the finite-difference representation 
of the equations of motion, are solved to obtain the nodal generalized dis- 
placements and displacement increments of the next time increment. The process 
then proceeds cyclically for as many time steps as desired. Finally, it should 
be noted that the triple-matrix- factorization scheme is employed to solve the 
system of ordinary algebraic equations. 

For present purposes, the above general description is considered to be 
adequate; one may consult Appendix A and Refs. 1-3 for a more detailed discus- 
sion of the solution and evaluation process. 

2.4 Fragment/Ring Collision- Interaction and Solution Procedure for CIVM-JET 5B 

For analyzing the collision-induced transient responses of two-dimensional 
containment and/or deflector rings and fragment motions, the fragment is ideal- 
ized as a non- deformable fragment of circular configuration as depicted for 
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example, in Fig. 7. The modeled- fragment diameter, mass, mass moment of 
inertia, and velocity components are specified by the user to "correspond" 
with those of the actual fragment. 

The process called the collision- imparted velocity method (CIVM) is used 
for the collision-interaction analysis in the CIVM- JET 5B program (see Refs. 
1-3) . In this process, energy and momentim considerations are employed to 
predict the collision- induced velocities which are imparted to the fragment 
and to the impact-affected zone of the ring. Also, the following simplifying 
assumptions are invoked: 

(1) The collision process is instantaneous and involves only the frag- 
ment and the impact-affected zone of the target ring. The impact- 
affected zone is defined as the fraction of the ring that responds 
to fragment impact instantaneously with moment-um changes. The 
size of the impact-affected zone of the ring can be estimated from 
the speed of a longitudinal wave or from semi-empirical data. 

(2) In an overall sense, the fragment is treated as being rigid but at 
the "immediate contact region" between the fragment and the struck 
ring the collision process is regarded as acting in a perfectly 
elastic (e = 1), perfectly inelastic (e = 0) , or an intermediate 
fashion (0<e<l), where e represents the coefficient of restitution. 

(3) The colliding surfaces of both the fragment and the target ring may 
be either perfectly smooth (y = 0) or may be "rough" (y 0) , where 
y denotes the coefficient of sliding friction. Hence, respectively, 
force and/or momentum (or velocities) are transmitted only in the 
normal-to-surface direction or in both the normal and the tangential 
direction . 

(4) During the collision, the Contact forces are the only ones considered 
to act on the impact-affected region of the ring and in an anti- 
parallel fashion on the fragment. Any forces which the ring segment 
on either side of the impact-affected region may exert* on that seg- 
ment as a result of this collision are considered to be negligible 
because instantaneous momentum transfer to the impact- affected 
region is assumed. 

* ... 

Such forces are termed "internal forces" as distinguished from the "external 

impact forces". 
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To avoid iinduly complicating the analysis and because of the small- 
ness of the arc length of the ring finite elements, each affected 
ring element is treated as a straight beam segment (see Pig. 8) in 
the derivation of the impact inspections and equations. However, 
for modeling of the ring itself for transient response predictions, 
the ring is treated as being arbitrarily curved and of variable 
thickness. 

An information flow schematic of the CIVM and ring/fragment transient 
response solution procedure is shown in Fig. 9. Briefly, the analysis pro- 
cedure indicated in Fig. 9 consists of the following principal steps; 

1. Motions and Positions of Bodies 

The motions of the fragment and of the containment and/or deflector ring 
are predicted and the (tentative) region of space occupied by each body at 
a given instant in time is determined. 

Modeling of the C/D ring structxire is carried out as already described 
for the JET 5A analysis, except that a diagonal "lumped" mass matrix is 
employed (see Appendix B) . The justification for the use of lumped mass 
instead of consistent mass is outlined next. A comparison of n\amer;Lcal 
results obtained using lumped mass vs. consistent mass, given in Ref. 1, for 
ring-type structures shows similar results for both mass systems. Reduced 
storage requirements and additional savings of computation time in each time 
step because of the simple form of the lumped mass matrix, makes the use of 
-a limped mass matrix computationally efficient. Finally, in the collision- 
interaction analysis, the element (and structure) mass properties are assumed 
to be lumped at the nodal points. Thus, for consistency, the mass properties 
of the ring structure used in the global timewise solution procedure should 
also be nodal lumped masses. Also, since no prescribed externally-applied 
forces act on the ring, the form of the governing equations of motion is 
given by Eg. 2. 2 except that {f*} =0. 

Prior to fragment-ring impact, the ring structure is assimed to be 
stationary in its undeformed state and the (one or more) idealized fragment 
is moving with known translational and rotational velocities' toward the 
ring. The step-by-step solution procedure is carried out in small steps 
At in time by employing Houbolt timewise operator. 
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Collision Inspection 

Next, an inspection is performed to determine whether a collision has 
occurred during the small increment (At) in time from the last instant at 
which the body locations were known to the present instant in time at which 
the body- location data are sought. If a collision has not occurred during 
this At, one follows the motion of each body for another At, etc. However, 
if a collision has occurred, one proceeds to carry out an (approximate) 
calculation of the time of fragment-ring contact. 

3. Contact-Time Calculation 

The fragment and ring-node positions, velocities, and accelerations 
are known at an instant in time prior to ring- fragment collision. Using 
this information, the (approximate) time of ring- fragment contact (within 
a small increment, At, in time), and the point of contact on the ring are 
calculated. When this information has been obtained, one then proceeds to 
carry out a collision-interaction calculation. 

4. Collision-Interaction Calculation 

In this calculation energy and momentum conservation relations are 
employed in an approximate analysis to compute the collision-induced changes 
in (a) the velocities (translation) and (rotational) of the fragment 
and (b) nodal velocities of the ring impact-affected segments. The coordinates 
which locate the positions of the fragment and of the affected segments are 
thereby corrected from their tentative uncorrected- for- impact locations. 

One then returns to step 1, and the process is repeated for as many time 
increments as desired. 

The details of this analysis procedure as well as various considerations 
and simplifying assumptions employed are discussed fxarther in Ref. 4 and 
Appendix B. 
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SECTION 3 


/ 


DESCRIPTION OF PROGRAMS AND SUBPROGRAMS 

3 . 1 Program Contents 

The following three subsections present a brief description of the 
subroutines which are common to both the JET 5A and the CIVM- JET 5B 
program (Subsection 3.1.1). Then the MAIN programs and subroutines unique 
to each program, JET 5A and CIVM- JET SB, are presented in Subsections 3.1.2 
and 3.1.3, respectively. 

3.1.1 Subprograms Common to JET 5A and CIVM- JET SB 

This group consists of the following 14 subprograms: 

ASSEF This subroutine assembles the generalized nodal load vectors 

(due to large-deflection elastic-plastic effects) of each 
individual element into a generalized nodal load vector for 
the structure as a whole. 

ASSEM This subroutine updates the structural mass (and/or stiffness) 

matrix as the element mass (and/or stiffness) matrices are 
generated. The components of the assembled structural mass 
matrix [M*] , which is a symmetric matrix, are stored in a 
linear-array form; only the lower triangular part of [M*] 
need be and is stored (row-wise) starting with the first 
nonzero element in the row and ending with the diagonal 
term. Similar handling of the assembled stiffness matrices 
([K*] and [K*]) of the structure is employed. 

5 

BRAN This subroutines reads the geometry, boundary constraints, 

and elastic restraints for a branch. The global numbering 
system of the main structure is then modified to include the 
bi'anches. BRAN establishes arrays which contain information 
facilitating the rotations required in other subroutines. It 
also establishes identifier arrays which distinguish between 
elements of the main structure and elements of the various 
branches . 

ELMPP This subroutine evaluates the element mass matrix [m] , and 

element stiffness matrix fk] , for each discrete element, and 


ERC 


FAC 


IDENT 


MINV 


0MULT 


QREM 


R0TAT 


then performs discrete element assembly to form [M*] and [K*] 
for the complete structure with respect to global coordinates. 
Next, the prescribed displacement conditions (if any) are 
imposed on [M*] and [K*] to form restrained matrices. Also 
evaluated are the transformation matrices between the strain 
at each spanwise checking (Gaussian) station and the generalized 
nodal displacement conditions of the element. 

Imposes the proper prescribed displacement conditions to the 
[M*] and/or [K*] matrices by restraining the corresponding 
rows and columns of the matrices 

FAC factors a symmetric matrix [B] , into a lower triangular 
matrix [L] , a diagonal matrix [D] , and an upper triangular 
matrix [L]'^; [B] - [L] [D] [L]'’’’. 

The IDENT subroutine is used to print out the values of certain 
input parameters at the beginning of the run, and is used to 
identify the type of run that is being made . 

Performs the matrix inversion; a standard Gauss-Jordan inversion 
method is used. 

Computes various linear arrays (in which a two-dimensional 
matrix is stored) and vector products. A vector results. 


Evaluates the effective stiffness matrix [K*], supplied by the 

elastic foundations and/or the restoring springs, and then 

imposes the prescribed displacement conditions on [K*] accord- 

s 

ingly . 

This subroutine generates the transformation matrix necessary 
to rotate from the global displacement system to the element 
displacement system. This matrix is then applied to the element 
[k] matrix, the displacement vector and the equivalent load 
Vector (as required) to perform the rotation for the connecting 
branch elements and any elements containing discontinuities. 


S0LV 


STRESS 


TSTEP 


3 . 1.2 


MAIN 


IMPULS 


Performs two back substitutions involving the triple factoriza- 
tion of a matrix to obtain the solution of a matrix equation. 

r *NL 1 

Thxs subroutine evaluates the generalized load vectors, (iP / + 

r*Li r*NLi ^ 

IF > + IF J- of Eq. 2.2) arising from the presence of large- 
P P 

deflections and plastic strains. First, the stresses and 
plastic strains are determined at each quadrature station, 
which involves the use of the strain-displacement relation 
and the stress-strain relation. The strain-hardening and 
strain- rate sensitivity effects are taken into consideration. 
Next, the appropriate Gaussian integration scheme is used to 
form the element generalized nodal load for each discrete 
element, and finally, an assembled generalized nodal load 
vector is calculated. 

This subroutine is called during each problem run to compute 

At ' . It finds the highest natural frequency, co , in the 

rsi mdx 

mathematical model of a corresponding linear dynamic system 

[M*] {q*} + [K*] {q*} = 0 by using an iteration process, and 

then calculates a value of At _ = (2/0) ) . Will be used to 

ref max 

estimate an appropriate At. 


Si3bprograms Unique to JET 5A 

This group consists of the following 4 subprograms: 

Reads the ring geometry, material property data, the structural 
discretization information, and/or the prescribed displacement 
conditions and elastic restraints. It computes the quantities 
that are constant throughout the program and initializes most 
of the variables used in the subroutines. It controls the 
logical flow of information supplied by the various subroutines 
and the overall time cycle. 

The information for the initial generalized nodal velocities 
is read in. This subroutine also sets the initial generalized 
nodal displacements, the initial stresses, and the initial 
plastic strains to be equal to zero. 


L0ADEQ 


L0ADFT 


3.1.3 


MAIN 


IMPACT 


IMPCTE 


Computes the transformation matrices between the element 
generalized (virtual-work equivalent) nodal load vectors and 
the externally-applied mechanical load which may be concentrated, 
uniformly distributed, and/or linearly distributed within the 
element. 

This subroutine reads the data pertaining to the subsequent 
time- dependent externally-applied, loads and uses this data to 
compute the element generalized load vector; subsequently, an 
assembled generalized load vector for the whole structure is 
formed at each step of calculation. 

Subprograms Unique to CIVM-JET 5B 

This group consists of the following 4 subprograms: 

Reads the ring geometry, material property data, the structural 
discretization information, and/or the prescribed displacement 
conditions and elastic restraints. Also, read in are the fragment 
geometry parameters and the fragment velocity components. It 
computes the quantities that are constant throughout the program 
and initializes most of the variables used in the svibroutines . 

It controls the logical flow of information supplied by the 
various stibroutines and the overall time cycle. Also, the 
lumped mass matrix [M*] is generated by this routine and stored 
in row f 02 nn . 

This subroutine is the controlling routine for carrying out the 
search for impact occurrence involving one of N fragments on 
each element of the ring for all fragments considered. When 
it is determined that a fragment- ring collision has taken place, 
IMPACT controls the application of appropriate correction factors 
to the velocities of the fragment and the nodal points of the 
affected elements. 

A slave subroutine of IMPACT. This subroutine calculates and 
applies the appropriate correction factors to the velocities 


PENTRN 


of the fragment and the nodal points of the elements affected 
when a fragment-ring collision has occurred. 

A slave subroutine of IMPACT. Given the position of the frag- 
ment and ring nodes and the geometry of the fragment and 
idealized ring structure, this subroutine determines whether 
any "overlapping" (penetration) exists between the fragment 
geometry and the ring geometry. 
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3 . 2 Partial List of Variable Names 


The following subsections give a brief list and defination of the most 
important and/or commonly used variable names. 

3.2.1 Variables Common to JET 5A and CIVM- JET 5B 


A(I,J) [A], an 8x8 matrix defines the transformation between the 

element generalized nodal displacements {q} and the parameters 
{ 3 } in the assvuned displacement field of each element. It is 
destroyed in computation and is replaced by its inverse [A ^] . 


AEP(I,J,K) Transformation matrix which relates strain at Ith additional 

strain point to the generalized nodal displacements of the 
element on which it is located. 


AL(I) 
AMASS (I) 


ANB(I) 

ANG(I) 

ANGDB 

ANGDI(I) 

APHA 


Element arc length of the Ith element. 

The lower triangular part of the symmetric structural mass 
matrix [M*] (stored in a linear-array form of a size ISIZE) . 
Later on, it is destroyed in calculation and is replaced by a 
lower triangular factorized matrix. 

Same as ANG(I); applies to initial input for branch nodes. 

The slope, which is the angle between the tangent vector and 
the +Y axis, at the Ith node. 

The slope, which is the angle between the tangent vector and 
the +Y axis, at the Ith slope discontinuity. ANGDB refers to 
initial input for branches. 

The angle between the chord connecting the first node of the 
element to the second node, and the +Y axis. 


ASFL(I, J,K,L) Stress and/or plastic strain weighting factor on the Lth sub- 
layer in the Kth depthwise Gaussian point at the Jth spanwise 
Gaussian station of the Ith element. 


AXG(I) 

AWG(I) 


Input vectors with dimension NOGA: contain Gaussian quadrature 

constants, x., and weights, w. of 
1 1 
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AZET(I) 

B(L) 

BEP (IR, J, 

BI(L) 

BIG (L) 

BIGA(L) 

BINP(I,J) 
BIMP (I, J) 

BINPP (J) 
BIMPP (J) 

B0NE 

BTIM(L) 
BITMA (L) 


{ ^ f(Xi)Wc 

o ^ 

employed in the spanwise integration over each element- 

The location along an element's centroidal axis of the Ith 

'I additional strain point. 

/ 

Width of the ring (inches); L=1 for main structure; L^2 for 
branches . 

,K) Transformation matrix which relates the strain at the Jth span- 
wise Gaussian station to the generalized nodal displacements of 
the IRth element ([D^], I - 1,2,3, see Eq. A.14at). 

Same as BIG(L), for largest average nodal strain. 

The largest computed strain at the Gaussian stations for the 
Lth substructure, up to the present cycle. It should be noted 
that strains are computed at every cycle. L=1 for main struc- 
ture, L^2 for branches. 

The largest computed strain at the additional strain points, up 
to the present cycle. 

I The longitudinal force and the bending moment, respectively, 
over the cross section at the Jth spanwise Gaussian station 
of the Ith element (see Eq. A. 24). 

! The integration of the plastic strain over the cross-section at 
the Jth spanwise Gaussian station of each element (see Eq. a. 24) 

The highest natural frequency squared of a corresponding linear 
dynamic system. 

Same as BTIME (L) ; applies to nodes. 

The time at which the largest computed strain occurs at the 
additional, strain points. L=1 for main structure, L^2 for 
branches. 


BTIME (L) 

CINET 

C0PY(I) I 
C0PZ(I) * 

DELD(I) 


The time at which the largest computed strain occurs at the 
Gaussian stations. 

Kinetic energy stored in ring at the present time. 

\ ’ 

Current global Y coordinate and Z coordinate, respectively, of 

the Ith node. 

Vector contains the generalized Ith degree of freedom displace- 
ment increment during the current time step. 


DELTAT Time-Step size used in the program. At. 

DEP(IR, I, J,K) Transformation matrix which relates the strain at the Ith node 
to the generalized nodal displacements of the IRth element. 

DENS(M,L) Density of the Mth material layer of the Lth structural 

segment. L=1 for main structure, L^2 for branches 

’ 2 4 

(Ibs-sec /in ) . 


DISP(I) 
DROT (L) 
DS (M,L) 


DUMMY 


Vector which contains the generalized Ith degree of freedom 
displacements at the current time instant. 

Stores information used in rotating a displacement vector into 
the global system at a point of slope discontinuity. 

Material constant used in the strain-rate sensitivity formula 
for the Mth layer. L=1 for main structure, L>^2 for branches. 

A dummy argument in the calling statement of Subroutine ROTAT. 


ELAST Total elastic energy present in the structure at the present 

time instant. 

ELK(I,J) Element stiffness matrix of dimension 8x8 (Eg. A. 24a). 

ELMAS(I,J) Element mass matrix of dimension 8x8 (Eq. A. 18b). 

ELRP(I,J) Element effective stiffness matrix of dimension 8x8 supplied 

by elastic restraints. “ 
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EPASI 
EPAS0 

EPI (I) 
EP0(I) 

EPS (M,L,J) 


EPSI (I) 
EPS0CI) 

FARE 
FCUR 

FLVA(I) 



FQREF(I) 


FREQ 

GFL(IR,I, j) 


Axial strain on the inner and outer surface, respectively, at 
an additional strain point. 

Axial strain on the inner and outer surface , respectively , at 
the Ith Gaussian station. 

Input quantities of abscissa of the uniaxial stress-strain 
curve for the Jth mechanical sublayer material model of the 
Mth layer. L=1 for main structure, L>2 for branches. 

Average axial strain on the inner surface and on the outer 
surface, respectively, at node I. 

Midplane axial strain and curvature increment, respectively, 
at the selected spanwise Gaussian station of each element. 

Assembled generalized load vector corresponding to large deflec- 
tions and plastic strain presence; it equals {f*^^}+{f*^}+{F*^^} 

q P P 

Assembled generalized load vector supplied by elastic restraints 
equals [K*] {q*} of Eq. 2 . 2 . 

The highest natural frequency of a corresponding linear dynamic 
system of the ring. 

Stress and/or plastic strain weighting factor on the Jth depth- 
wise Gaussian point at the Ith spanwise Gaussian station of 
the IRth element. 


GZETA (IR, I, J) Distance from the centroidal axis to the Jth depthwise Gaussian 
point at the Ith spanwise Gaussian station of the IRth element, 

H(I,M) Thickness of the Mth layer at the Ith node. 

HB(I) Same as H(I,M), applies only to initial input for branches. 

HTH(L) The branch thickness for the Lth branch at its connecting node. 

IBI (L) Same as IBIG (L) , applies to nodes. 

IBIG(L) The element nvimber whose strain, computed at one of its Gaussian 

stations, exhibits the largest value during the present com- 
puter run. L=1 for main structure, L> 2 for branches. 


IBIGA(L) 


Same as IBIG (L) , applies to additional strain points. 


IG0L(I) 

IC0N 

IC0NT 

ICP 

IK 

IKK 

INUM (I ) 

IRRUN 

ISTA(I) 

ISTAA(I) 

ISIZE 

ISUR(L) 

ISURA(L) 


Vector, of length NI, contains the coltimn number of the first 
nonzero entry in the Ith row of the structural mass and/or 
stiffness matrix. 

INDICATOR = 0 if last data have been input 
= 1 if more runs are desired 

INDICATOR, if > 0 then the program expects data for a continua- 
tion run. 

INDICATOR, which if > 0 indicates that the structure is a 
complete ring. For a partial ring ICP 0. 

Number of discrete elements into which the whole structure is 
discretized for analysis. 

Total number of nodes. 

Vector of dimension NI contains the corresponding position in 
the linear-array of the first nonzero entry in the Ith row of 
the structural mass or stiffness matrix. 

A counter; is equal to the nimiber of runs in a single computer 
submittal. 

The number of the Gaussian station at which the strain is a 
maximum. 

The number of the additional strain point at which the strain 
is a maximum. 

Number of locations required for the storage of the structural 
mass or stiffness matrix in linear-array form. 

Same as ISURF (L) , applies to nodes. 

Same as ISURF (L) , applies to additional strain points. L=1 for 
main structure , L>2 for branches. 


ISURF (L) 


IT 

KR0W(I) 

LATT 


LBR(I) 
LHIT (I) 

LMT{I) 

LREF 

MATT(L) 

'mk(i) 

MKE(I) 

MM 

MNEL(I) 

Ml 

M2 


INDICATOR = 1 if largest computed strain occurs on inner surface 
=2 if largest computed strain occurs on outer surface 
Refers only to strains calculated at Gaussian stations. 

Current time-step (cycle) number. 

The row number of the Ith irregular row in the structural mass 
or stiffness matrix. 

Indicates how the branch is attached to the main structure: 

= -1 inner surface 
= 0 outer surface 

= 1,2,3 midsurface of respective layer 

The number of a branch upon which a boundary condition is to 
be applied. 

Indicator array. I = branch niamber. If LHIT(I)=0, branch is 
not to be impacted; in the present program LHIT(I) must be set 
equal to zero. 

Array which stores the element numbers of those branch elements 
where impact cannot occur. 

The layer number whose centroidal axis .is conveniently employed 
as the reference axis of the multilayer structure. 

Indicates the node at which the Lth branch is attached. 

Vector which contains new nodal numbers for the main structure, 
given I as the old nodal number. 

Indicates the substructure to which the Ith element belongs. 

Time step (cycle) at which run is to stop. 

Number of elements in the Ith substructure. 

Cycle at which regular printing starts. 

Printout will occur every M2 cycles. 


MPU Indicator for punched output; IF MPU = 0, no punched output 

IF MPU 5 ^ 0 , data is punched 
from last time cycle. 

This card must be physically changed in the MAIN program. 

MREAD Number for the data input tape unit, printed output tape unit, 

MWRITE > and the punched output tape unit, respectively. These names 

MPUNCH_) must be assigned a number in MAIN corresponding to the user’s 

computing facility requirements. 

NASP Number of additional strain points. 

NBC (I) The prescribed-displacement condition identification number. 

NBCB(I) Same as NBC (I), applies to initial input for branches. 

NBC0NB The number of nodes at which the prescribed displacement condi- 
tion is to be specified: refers only to branches. 

NBC0ND The number of nodes at which the prescribed displacement condi- 

tions are to be specified. 

NBR Indicates the number of branches that are to be added to main 

structure (not to exceed 5) . 

NDEX(I) The corresponding position in the linear-array of the first 

nonzero entry in the Ith irregular row. 

NDI Number of branch elements containing a slope discontinuity. 

NDIS The number of elements containing a slope discontinuity. 

NEDI(I) The main structure element number of the Ith element containing 

a slope discontinuity. 

NEDIB(I) The branch element number of the Ith branch element containing 

a slope discontinuity. 

NELT(I) Number of elements in the Ith branch. 

NFL The number of depthwise Gaussian points through the thickness 

of each layer for the numerical evaluation of stress resultants 
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NI 


NIRREG 


NLAY 

N0DBB(I) 

N0DEB(I) 

N0DP(I) 

N0GA 

N0RP 
N0RU 



NQR 


NREADF 

NREL(I) 

NRST(I) 
NREU (I ) 


(axial forces and bending moment) at each spanwise Gaussian 
station. 

Total number of degrees of freedom (unrestrained) ; it equals 
the number of nodes times 4. Also, it is the number of rows 
in the assembled structural mass or stiffness matrix. 

Number of irregular rows in the assembled structural mass or 
stiffness matrix. 

The number of layers used in the hard-bonded composite ring. 

The node number along branch (I) at which a boundary condition 
is to be applied. 

The node number at which the prescribed displacement condition 
NBC (I) is to be specified. 

Nodal number (from main structure numbering system) at which 
the Ith branch starts. 

The number of Gaussian stations to be employed for the spanwise 
numerical integration of the element properties over each 
element. 

The number of point elastic restraints (elastic restoring 
springs) and the number of locally distributed elastic restraints 
respectively, which are to be specified over the structure. 

Indicator, which if > 0 indicates that this structure is sub- 
jected to elastic restraints (point and/or distributed) . 

Dummy variable which controls the reading in of force-time data. 

The element number at which the Ith point elastic restraint is 
to be specified. 

The first element and the number of elements, respectively, 
oyer which the Ith distributed elastic restraint is to be 
specified. 


NSFL(M,L) 


Equals the number of mechanical sublayers in the strain-harden- 
ing material model; also is the ntiinber of coordinate pairs 
defining the piecewise linear stress-strain curve of the sub- 
structure's material! M = material layer number. 

L = 1 for main structure, L ^ 2 for branches. 

NV1~) User specified dimension sizes for number of elements, number 

NV2 > of total depthwise Gaussian stations, and number of mechanical 

NV3 _j sublayers, respectively. 

NVEC(I,J) Array containing nodal numbers which form the end points of 

the I th element. J = 1 or 2 [First or second node, number 
clockwise for main structure, outwards for branches, and inwards 
for a branch attached to node 1 of a partial ring . ] 

P(M,L) Constant used in the strain- rate sensitivity formula for the 

Mth layer. 

L = 1 for main structure, L ^ 2 for branches. 

PIE Represents 7T = 3.141592653589793. 

PLAST Total plastic work done on the structure up to the current 

time step (mechanical work dissipated during plastic flow) . 

REX (I) The length coordinate along the centroidal axis from the node 

NREL(I) at which the Ith point elastic restraint is to be 
specified. 

RFACTR Strain rate factor used in the stress calculation. 

ROT(I,J) Array which contains information needed to rotate a stiffness 

matrix. 

I = Niomber of branch 
J = 1 or 2 

ROT (1,1) = 0.0 if Ith branch connects to first node 
of main structure. Equals 1.0 for all other connect- 
ing points. ROT (I, 2) = Angle of rotation. 

Total energy stored in ring up to the current time. 


RWORK 


SCTP 

SCTY 

SCRP 

SCTU 

SCTW 


} 


SCRU 

SIG (M,L,J) 


SN0(M,N,L) 


The tangential and normal translational restoring spring elastic 
constants, respectively * 

The rotational restoring spring elastic constant. 

Tangential and normal translational elastic foundation stiff- 
ness constants, respectively. 

Elastic foundation modulus in torsion. 

Input quantities for the ordinate of the uniaxial static stress- 
strain curve for the Jth mechanical siiblayer material model of 
the Mth layer. 

L = 1 for main structure; L ^ 2 for branches. 

Uniaxial static yield stress of the Nth mechanical sublayer 
material model, for the Mth structural layer. 

L = 1 for main structure; L > 2 for branches. 


SNP(I,J,K,L) The total plastic strain of the Lth mechanical sioblayer at the 
Kth depthwise Gaussian point at the Jth spanwise Gaussian 
station of the Ith element. 


SNS(I,J,K,L) Axial stress of the Lth mechanical sublayer at the Kth depth- 
wise Gaussian point at the Jth spanwise Gaussian station of 
the Ith element. 

SNY Uniaxial yield stress of the mechanical sii)layer, taking strain- 

rate sensitivity into account. 

SOL (I) Contains the solution vector of a series of matrix equations. 

SPDEN Total energy stored in the elastically-restoring springs and/ 

or the elastic foundations at the current time instant. 

SPRIN(I) The assembled effective stiffness matrix supplied by elastic 

restraints (stored in a linear array form). 

STIFK(I) Assembled structural elastic stiffness matrix, stored in a 

linear- array form. 


TIME Current time (IT*DELTAT) . 








TRAN (I, J) Transformation matrix, used to rotate displacement vector and 

lelement stiffness matrices into global coordinates. Used for 
branch connection and slope discontinuities. 

TWG(I) ~1 Input vectors with dimension NFL; contain Gaussian quadrature 

TXG(I) f constants x^ and weights, w^ of 

V fMdx=^ 

used in the numerical integration of stresses and/or plastic 
strains through the thickness. 

XDIST(I) Distance from reference axis to attachment point of the Ith 

branch. 


YK(I) 


YOUNG (M,L) 




A general work vector. It is finally used to store either the 
nvimber 1 or 0 for each element (I) to indicate whether a trans- 
formation is necessary. YK(I) is used together with ROT{I,J) 
to identify and aid in rotating an element's stiffness matrix. 

Elastic (Young's) modulus for the Mth structural layer (the 
slope of the 1st segment in the piecewise linear approximation 
of the uniaxial stress-strain curve) . 

L = 1 for main structure; L ^ 2 for branches. 

Initial Y coordinate and Z coordinate, respectively, of the Ith 
node. 

Same as Y(I) and Z (I) ; applies only to branch nodal input. 


3.2.2 Variables Unique to JET 5A 

AMPIFV^ Initial nominal amplitudes (at time TBEGIN) of the externally- 

( applied forces in the tangential and the normal direction, 

respectively. 


29 


AMP2FV 

AMP2FW 


AMPFV 

AMPFW 


ANGV 


ANGVl 

ANGV2 


APDEN 

CINET0 

CINETT 


ETA (I) 

FMECH(I) 

lEl 
IE 2 

I0TA 
I0TB 

I0TC 



Nominal force amplitudes, in the tangential and the normal 
direction, respectively, of each succeeding point on the 
force- versus- time curve to be prescribed. 

The linearly-interpolated values of the nominal force amplitudes 
in the tangential and the normal direction, respectively, at 
the current time instant. 

* * * 

Initial angular velocity, = (9w/9ri - v/R) at time zero. 

Initial angular velocities at the two edge nodes of the local 
uniform initial normal velocity distributed over certain 
elements of the structure. 

Total work done on the structure by externally-applied forces 
up to the present time step. 

Initial kinetic energy imparted to the structure. 

Total work done by all external agencies (externally-applied 
forces and initial imported kinetic energy) up to the current 
time step. 

Equals the length coordinate along the centroidal axis from 
the node JELEM(I) at which the I th concentrated load is to 
be specified on element JELEM(I). 

Assembled generalized load vector due to externally-applied 
forces. 

The first element and the number of elements, respectively, 
over which the local uniform initial normal velocity is to be 
prescribed. 

Number of local uniform initial normal velocity distributions. 

Number of nodes at which the initial generalized nodal velocity 
components are to be prescribed. 

Number of local sine-shaped initial normal velocity distributions 
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JELEM(I) 
NELF2 (I) 
NELF3(I) 


NL0AD 

N0DEV 

N0FT1 

N0FT2 

N0FT3 

NREADF 



NSTF2 (I) 


NSTF3 (I ) 


NV 


RT0V(I) 

RT0W(I) 


The first element and the number of elements, respectively, 
over which the local sine-shaped initial normal velocity is 
to be prescribed. 

The element number at which the Ith concentrated load is to 
be specified. 

The number of elements over which the Ith local uniformly 
distributed externally- applied load is to be specified. 

The number of elements over which the Ith local sine-shaped 
distributed externally-applied load is to be specified. 

Equal to 1 means external forces are acting during the current 
time step; equal to 2 means the forces are not acting* 

The node number at which the initial generalized nodal velocity 
components are to be specified. 

The number of concentrated loads, the niimber of local uniform 
load distributions, and the number of local sine-shaped load 
distributions, respectively, which are to be prescribed over 
the structure. 

Dummy variable which controls the reading-in of force-time 
data. 

The first element number at which the Ith local uniform load 
distribution is to be specified. 

The first element number at which the Ith local sine-shaped 
load distribution is to be specified. 

Indicator, which if > 0 indicates that- initial velocity distri- 
butions are to be specified over the structure. 

The normalized values of the Ith concentrated load with respect 
to the nominal amplitudes in the tangential and the normal 
direction, respectively. 
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RT02V(I)~j 


RT02W(I) 


J 


RT03V(I)~] 
RT03W(I) 


J 


SL0PEV 

SL0PEW 


] 



tbegin"] 


TFINAL J 


VRAD 


WRAD 


WRADl 
WRAD2 

3.2.3 

AD0TCJ) 

AINT 

ALFA (I) 

APN 



The normalized values of the Ith local uniform load distribu- 
tion with respect to the nominal amplitudes in the tangential 
and the normal direction, respectively. 

The normalized values of the Ith sine-shaped load distribution 
with respect to the nominal amplitudes in the tangential and 
the normal direction, respectively. 

Slopes of the piecewise-linear segment approximation of 
nominal force versus time curve in the tangential and the 
normal direction, respectively, at the current time instant. 

Times at which a linear segment of the force-versus-time curve 
starts acting and stops acting, respectively. 

Times when overall externally-applied forcing function starts 
acting and stops acting, respectively. 

The value of the initial tangential velocity to be specified 
at the node of the element. 

The value of initial normal velocity to be specified for the 
local iiniform initial normal velocity; also is the peak value 
of the sine- shaped initial normal velocity distribution. 

The values of the initial normal velocity at the two edge nodes 
of the local uniform initial normal velocity distributed over 
certain elements of the structure. 

Variables Unique to CIVM-JET SB 

The angular velocity of the Jth fragment (rad/sec) . Positive 
sign denotes counter-clockwise rotation. 

Relative normal velocity between the ring impact-affected nodes 
and an impacting fragment. 

Angular rotation of fragment (I) (rad). 

Fragment-induced impulse normal to the impacted ring element 
surface. 
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APT 

CINETF ( J) 
CR(J) 

DALFA(J) 

DCRTE 

DDELD(I) 

DELTR 

DFCGU (J) 

DFGGW (J) 

EFLN(L) 

FACTFN 

FACTFT 

FACTF0 

FACTN 


Fragment-induced impulse tangential to the impacted ring 
element surface. 

Kinetic energy stored in Jth fragment up to the present time. 

Coefficient of restitution between the Jth fragment and the 
impacted ring surface. 

Impact- corrected angular displacement increment of the Jth 
fragment at the current time step. 

Critical distance used in calculating where a positive penetra- 
tion has occurred between a fragment and a ring element. It 
is equal to the fragment radius plus one half the mean element 
thickness . 

Stores DELD(I) from the previous time step. 

Equal to time step At. Used in impact inspection and 
correction calculations. 

Impact-corrected Y-direction displacement increment applied 
to the position of fragment J. 

Impact-corrected Z-direction displacement increment applied to 
the position of fragment J. 

The effective- impact length of the ring (inches). L=1 for main 
structure. L^2 for branches. 

Impact- induced correction factor applied to the normal-to- 
impact displacement increment of the attacking fragment at the 
time of contact. 

Impact-induced correction factor applied to the tahgential-to- 
impact displacement increment of the attacking fragment at the 
time of contact. 

Impact- induced correction factor applied to the rotational dis- 
placement increment of the attacking fragment at the time of 
contact. 

Impact-induced correction factor applied to the normal- to- impact 
displacement increment of each affected node. 
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FACTT 

FCGU(J) 

FCGW(J) 

FH (J) 

FKT ( J) 
FMASS (J) 
FM0KJ) 
IFLAG(I,J) 

IMC0 

IMC0U 

JF 

KII 

MIRP 

NF 

NPP 

PAL 

PAX 

QACL(I) 


Impact- induced correction factor applied to the tangential- to- 
impact displacement increment of each affected node. 

The global Y coordinate of the centroid of the Jth fragment. 

The global Z coordinate of the centroid of the Jth fragment. 

The diameter of the circular disk model of fragment J. 

Initial kinetic energy of fragment J. 

2 

The mass of the Jth fragment (lb-sec /in) . 

2 

The mass moment of inertia of the Jth fragment (lb- sec -in). 

A flagging matrix which indicates whether element I has been 
impacted by fragment J during a given time step. At. 

Indicates the occurrence of an impact in the previous time step 

Indicates the number of impacts up to the present time instant. 

The fragment number which is involved in the ring segment 
impact. 

Number of nodes included in the impact-affected region. 

Indicates the first fragment that is released at a time after 
the initial impact. 

The number of fragments considered to be impacting the ring. 

The nvimber of positive penetrations during time DELTR. 

Fractional distance from point of impact to the first node of 
the impacted element 

Fractional distance from point of impact to the second node of 
the impacted element. 

Vector which contains the generalized DOF accelerations for 
the current time step. 


QVEL(I) 


RC0S(I) 

RSIN(I) 


RL(I) 


RMASS (I) 
RMX(I) 


] 


SINT 


TAII 

TANK 

TNJ(J) 

TPRIM(J) 



UD0T(J) 

UNK(J) 

VELFA (J) 
VELFU (J) 
VELFW(J) 


WDOT(J) 


Vector which contains the generalized DOF velocities at the 
current time instant. 

Cosine and sine, respectively of the angle that element I makes 
with the global Y axis. Used in transformation from impact to 
local and local to global coordinate systems. 

Straight line length of ring element I used in the collision 
inspection and correction analysis. 

Lumped mass and moment of inertia values, respectively, at 
ring structure node I. 

Relative tangential velocity between the ring impact-affected 
nodes and an impacting fragment. 

Time of initial impact. 

Boundary between rolling and sliding friction. 

Indicates whether or not fragment J has been released before 
the start of calculations . 

Length of time that fragment J has been traveling prior to 
initial impact of the first fragment. 

Trial Y and Z coordinates, respectively, of the I th node during 
impact calculations. 

The velocity component of the Jth fragment parallel to the 
global Y axis. 

Coefficient of friction for the Jth fragment. 

Same as ADOT ( J ) 

" ” UDOT(J) 

" " WDOT(J) 

The velocity component of the Jth fragment parallel to the 
global Z axis. 


used in impact calculations. 


SECTION 4 


USE OF THE JET 5A PROGRAM 

4.1 Guidelines for User-Prepared Array Dimensions 

The JET 5 a program is capable of handling multilayer structures with 
up to three layers, up to fifty elements, and up to five "mechanical sublayers" 
to represent the stress-strain behavior of the material. Inherent with 
this capability is a large computer core requirement. In order to make the 
program more flexible for the user with a limited budget or a limited computer 
core, the largest dimensioned arrays are to be user dimensioned in the MAIN 
program and will be variably dimensioned throughout the subroutines. The user 
must, therefore, insert his own dimension statements for these arrays at the 
beginning of the MAIN program, before running the JET 5A computer code. Once 
the user has set the dimension limits for these arrays, it is unnecessary to 
change these dimension statements until a run is submitted in which one or 
more of the dimensions will be exceeded. The user must be warned, however, 
that the upper limit for the dimensions (as mentioned earlier in this subsec- 
tion) can not be exceeded, as other dimensioned varicibles are fixed at these 
maximum values. It is hoped that with a minimum of interaction between tfie 
user and the computer deck, the user will be able to save fifty to sixty per- 
cent of the maximum required core, when jobs are run with only one or two 
layers, or with a few elements. 

Listed below are the cards that the user is required to change in the 
MAIN program; 

Dimension ASFL (IK, 3,K,NSFL) , GZETA(IK,3,K) , SNJ(IK, 3,K,NSFL) , 

SNP(IK,3,K,NSFL) , AEP(IK,3,8), DEP (IK,2,3,8) 

Dimension STIFK (L) , SPRIN (L) , AMASS (L) , QDD (M) , REACM (L) , REACK (L) , 

REAL(L), REAFM (M) , REAFK (M) 

NVl = IK 
NV2 = K 
NV3 = NSFL 

MPU = J 
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The number of elements. 

Nvunber of layers times the number of depthwise Gaussian 
stations, NFL. 

The number of mechanical sublayers. 

The number of nodes times 26 plus ten. If there are 
branches attached to the middle of the main structure, 
add a cushion of at least 100 to L. 

The number of nodes times four plus one. 

Equals 0 if no continuation cards are desired. 

Equals 1 if continuation cards are to be punched. 

4.2 Input Information and Procedure 

The information required to punch a set of data cards for a run of the 
program is presented in a step-by-step manner in this section. The variables 
to be punched on the n:h data card are outlined, and to the right is the 
format to be used for that card; the definition of and some restrictions for 
each variable are given directly below. This is done for each card, in turn, 
until all are described. 

Cards 1 through 16 are used to describe the ring geometry, material 
properties, the finite-element modeling, and the prescribed displacement con- 
ditions and/or elastic restraints . Cards 17-27 are used to describe the 
initial impulsive loads and/or the externally-applied force distributions. 

Card 1 Format 

IK, ICP, NLAY, LREF, NOGA, NFL, MM, Ml, M2, ICON 1015 

where 

IK The number of finite elements used to model the whole ring 

Structure. This number cannot exceed 50 (however, this 
limitation may be relaxed by a changing of the appropriate 
dimension statements of the program) . 

ICP Indicator, which if >0 indicates that the structure is a 

complete ring. For a partial ring, ICP£0. 


where 

IK 

K 

NSFL 

L 

M 

J 


NLAY 


LREF 


NOGA 


NFL 


MM 

Ml 

M2 

ICON 


Card 2 

NSFL(1,1) 

where 

NSFL(1,1) 


. . 


The number of layers used in the hard-bonded composite 
ring. This number cannot be greater than 3. 

The layer number whose centroidal axis is conveniently 
employed as the reference axis of the multilayer ring. 

The first layer of the maximiam of 3 layers is defined to 
be the inside layer of the ring. 

The niraiber of spanwise Gaussian stations to be used for 
the spanwise nximerical integration over each element in 
evaluating the element property matrices. N0GA=3 is used 
in JET 5A. 

The number of depthwise Gaussian points to be used for the 
nxjmerical integration through the thickness of each layer 
at each spanwise Gaussian station. This number cannot 
exceed 6. 

The cycle number at which the run is to stop. 

The cycle number at which the regular printout is to begin. 
Ml must not equal 0. 

The number of cycles between regular printout (i.e., print 
every M2 cycles). 

Integer that controls the stopping of the entire program: 
=0 The program will stop after all the required print- 
outs are made for a particular run. 

=1 The program will expect a new set of Cards 1-27 for 
another ring problem. 

NSFL(NLAY,1) 315 

The number of material mechanical sublayers in the strain- 
hardening material model for the first layer of the main 
structure, and equals the number of coordinate pairs 


defining the polygonal approximation of the, stress-strain 
curve for that material. NSFL(1,1) can not exceed 5. 


Continue until NSFL(NLAY,1) is specified, where NLAY is the total number of 
layers in the multilayer ring, and NSFL(M,'l) can not exceed 5. [M=l, NLAY]. 

Card 3A 


DENS (1,1), DS(1,1), P(l,l) 


3D15.6 


where 


DENS (1,1) 



2 4 

The mass density of the first layer material (lb-sec /in ) 
of the main structure (first substructure) . 

The values of the constants D and p, respectively used in 
the Cowper'-Symonds [7] strain-rate sensitivity formula:* 


(T = <r I \ + 

Y< eK ' ' 


D 


for the first layer of the multilayer ring, where DS= (1/sec) 
is the static yield stress of the kth mechanical sub- 
layer, and a is the corresponding rate dependent yield 
yK 

stress. If the material of ring layer 1 does not exhibit 
strain-rate sensitivity, set DS(1,1)=0.0 and P (1,1)=0.0. 


Card 4AA 

EPS(1,1,1), SIG(1,1,1), EPS(1,2,1), SIG(1,2,1) 

where 


4D15.6 


EPS (1,1,1) 
SIG (1,1,1) 


The first coordinate pair of strain, e, and stress, a, for 
the first ring layer, which is used to define the polygonal 
approximation of the first layer's stress-strain diagram. 
The stress-strain diagram from which these va,lues and those 
following are obtained must be upwardly- convex with non- 
negative slopes. (e(M,L) = in/in, and a(M,L) = Ib/in.) 
(This is for the main structure which is termed the first 
substructure. ) 


See Ref. 8 wherein values cited for aliiminum, for example, are D = 6500 sec 
and p = 4; for mild steel D = 40.4 sec ^ and p = 5. For other materials, the 
user will need to seek appropriate strain rate data from sources such as the 
Air Force Materials Laboratory, the General Motors Research Laboratory, etc. 
[7-13] and to deduce approximate values for D and p by data fitting studies. 
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EPS (1,2,1) I The second coordinate pair of the polygonal approximate 

SIG (1,2,1) I strain and stress in the first ring layer, of the main 

structure. 

Additional Cards 4AB and 4AC are punched in exactly the same manner as 
Card 4AA until the number of coordinate pairs equals NSFL(1,1) punched on 
Card 2 for layer 1. The total number of coordinate pairs must not exceed 5 
for any layer. Do not include any unneeded (blank) cards. 

Cards 3 through 4 are repeated for each additional layer in the multilayer 
ring until the number of sets of cards equals NLAY (given in Card 1) . The 
total number of card sets must not exceed 3. 


II 


Card 5 

B(l), DELTAT 

where 

B(l) 

DELTAT 


2D15.6 

The width of the multilayer main structure (inches). 

The time step. At (seconds) to be employed for the 

Houbolt timewise integration operator. If the value of 

At is set equal to zero on this card, the program will 

compute the largest natural frequency, w of the 

corresponding linear system and will then choose a value 
CD CD 

At = 2At , where At is the maximum At allowed for a 
max max 

linear system using the central difference operator; 

At^° = 2/0) . 

max max 


Card 6A 

Y(l), Z(l), ANG(l) 

where 


3D15.6 



ANG(l) 


Initial Y and Z coordinate , respectively , of the first 
node (inches). 

The slope (degrees) which is the angle between the 
tangent vector and the +Y axis at the first node. An 
angle from the +Y axis to the tangent vector in a counter- 
clockwise direction is defined as the positive direction 
(see Fig. 3) . 
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Additional Cards 6B/ 6C, ... are punched in exactly the same format as 
Card 6A until the total number of No. 6 cards equals (IK+1) for a partial ring 
and equals IK for a complete ring, where IK is the value appearing on Card 1. 
Also, the following two conditions must be satisfied by ANG(I) (where I is the 
node niimber) : 

(1) -180° < ANG(I) < +180° 

(2) An element cannot have a change in slope between its first node and 
its second node that is greater than 15°. This refers only to the 
shape of one element (see Fig. 3); slope discontinuities between two 
elements are handled on Card 8. 

Note that for bookkeeping purposes, the nodal slope is defined to be identified 
with the first end (left-hand end) of the element at that node for structures 
with continuous slopes. However, where a slope discontinuity occurs on the 
main structure, a node must be used and two slopes must be given; (1) one 
given on Card 6A associated with the second end (right-hand end) of the perti- 
nent element and (2) one associated with "end one" (L-H end) of the next 
element; the item (2) situation is dealt with by Cards 8A, 8BA, 8BB, BBC, etc. 

Card 7A 

H(l,l), ... H(l, NLAY), H(2,l) .. 5D15.6 

where 

H(l,l) The thickness of the first layer of the ring at node 1 

(inches) 

H(1,M) The thickness of the Mth layer of the ring at node 1 

(inches) 

Card(s) 7B, 7C, ... are repeated in the same format until the thicknesses 
of each layer of the ring at every nodal station are defined. The total 
number of data on Cards 7 (with 5 data on each card) should be equal to NLAY*IK 
for a complete ring arid equal to NLAY* (IK+1) for a partial ring. 

Card 8A 

15 
41 


NDIS 


where 

NDIS The total ntunber of elements in the main structure having 

a slope discontinuity at the first node of the element. 

If there are no slope discontinuities on the main structure, set NDIS=0 
and go to Card 9. 

Card 8BA 

NEDI(I), ANGDI(I) 4(I5,D15.6) 

where 

1=1, NDIS 

NEDI(I) The element (on the main structure) at which the Ith slope 

discontinuity appears on the element's first node. 

ANGDI(I) The appropriate slope (degrees) for the Ith slope discon- 

tinuity; the slope is measured between the tangent vector 
to the element at the station in question and the +Y axis 
(see Card 6a ANG(l) for a description of the measurement 
system) . 

Additional Cards 8BB, 8BC, etc., are used until all of the "slope discon- 
tinuities" are described. (See Fig. 10 for a further description of the 
discontinuity option.) 

The sequence of cards starting with Card 9 and going through Card 9DB 
contains all of the data for the single layer branches to be applied to the 
main structure except that elastic restraints must be handled as one unit on 
Card 16. If no branches are to be applied, Card 9 has NBR=0; then proceed to 
Card 10. Only 5 branches are allowed, with a maximum of 10 elements in any 
one branch. A branch may not be connected to another branch. Branches may 
be attached to any node on the main structure, or to the inner or outer 
surface of the main structure at any node but only one branch may be connected 
to a given main- structure node. Note that if a complete ring primary struc- 
ture is specified, no branch may connect to node 1 of the primary structure. 

The following sketch shows typical permissible arrangements of the single 
layer branches: 
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Note the difference in the numbering schemes for branch 1 compared with 
branches 2 and 3; the last geometry input card for a branch pertains to its 
junction with the main structure. Numbering of the primary structure is done 
independent of any branches. Typical branch numbering is given in the above 
sketch. Note that all mambering in the above sketch is done in each sub- 
structure's system. The program will renumber (in a clockwise manner) the 
entire finite element system. 

The following describes the sequence of Cards (9A through 9DB) needed to 
accommodate branches (these cards are nested in such a way that each branch's 
material and geometric properties are specified, branch by branch, followed 
by slope-discontinuity information for all branches, followed by boundary 
condition information for all branches): * 

Card 9 Format 

NBR 15 

where 

NBR The number of individual branches being added to the main 

structure (NBIK5) . 

If NBR=0, go to Card 10 

Card 9A 

NSFL(1,L), B(L), DENS(1,L), DS(1,L), P(1,L) 15, 4D15.6 

where 

L=2, NBR+1 The branch number is (L-1) ; the values of these variables 
when L=1 are equal to the main structure's material. 
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NSFL(1,L) 


B(L) 

DENS(1,L) 

DS(1,I 
P(1,L) 

Card 9AA 

EPS(1,J,L) 

where 

J = 

(L-1) = 

EPS (1,J,L) 
SIG(1,J,L) 



The number of mechanical sublayers in the strain-hardening 
model of the material of the (L-1) branch, and is equal 
to the number of coordinate pairs defining the polygonal 
approximation of the stress-strain curve of the material 
(NSFL (L)£5) . 

Width of the (L-1) branch (inches). 

2 4 

Mass density of the (L-1) branch (lb-sec )/in . 

% 

See Card 3A. 

(L-1) Branch. 

SIG(1,J,L) 4D15.6 

coordinate pair number 5 
branch number ^5 

See Card 4AA for definition of quantities. 


Additional Cards 9AB and 9AC are punched in exactly the same manner as 
Card 9AA until the number of coordinate pairs equals NSFL(L) punched on Card 9A 
Do not include any unneeded (blank) cards. 

Card 9B 

NELT(I), NODP(I), LHIT(I), LATT(I) 4(15) 

where 

I = 1,NBR is the branch number 

NELT(I) number of elements in Ith branch (NELT(I)£10) 

NODP(I) Node of main structure (in original numbering system) at 

which Ith branch is attached. See figure on page 42. . 

LHIT(i) Determines whether or not branch can be impacted: 

LHIT(I)=0 No impact 

LHIT(I)=1 Impact 
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Note: 


This subroutine is used in common with CIVM-JET 5B 
set LHIT(I)=0 for JET 5A computer runs. 


LATT(I) Determines where branch is to be attached. 

LATT(I) = -1 inner surface 

0 outer surface 

1,2,3 midsurface of respective layer 


Card 9BA 

YB{I,J), ZB(I,J), ANB(I,J), HB(I,J) 


4D15.6 


where 


YB(I,J) 
ZB(I, J) 
ANB(I,J) 
HB(I,J) 


(I = branch number, J = node numer) . Nodes are to be 
nvimbered from 1 to NELT(I) where node 1 is the first node 
of a branch (not attachment point) . Node NELT(I) is the 
attachment point to the main structure. 

Y coordinate of node (inches) 

Z coordinate of node (inches) 

Tangent angle measured to Y axis (degrees); see Pig. 3. 
Thickness at node J 

Note : See Card 6A [ANG(l)] for sign convention used for 

ANB(I,J). 

Note: If a branch attaches to node 1 of a partial ring 

(it can not be attached to node 1 of a complete ring ) , the 
numbering starts with the branch node farthest away from 
the attachment point. Therefore, the (NELT+1) node is 
the attachment point. If the branch attaches to any other 
node of the primary structure, start numbering with the 
node immediately after the attachment point. Thus, node 
NELT will be the node farthest away from the attachment 
point. However, node (NELT+1) will always be the attach- 
ment^point node . Thus nodes 1 to NELT are always 
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particular only to the branch, and node (NELT+l) is the 
conunon node with the primary structure. The subroutine 
BRAN automatically updates IK (the total number of elements), 
IKK (number of nodes), and NI (D.O.F.). Therefore, the 
initial input (Cards 1-8 and 10-15) is punched as though 
the branches did not ei^ist. 

Cards 9BB, 9BC, etc., are punched until (NELT+l) nodes have been described. 


Card 9C 


NDISB 


NDISB The nimiber of elements in the branches having a discontinu- 

ity at their first node. (Do not count the discontinuities 
duo to the attachment of the branch to the main structure.) 

‘ If there are no discontinuities on the J^ranches, set NDISB=0 and go to 
Card 9D. 


Card 9CA 


NEDIB, NBDI, ANGB 


2I5,D15.6 


NEDIB 


ANGB 


The element number (along a branch) at which the discon- 
tinuity occurs. 

The branch in which the element NEDIB is contained. 

The slope (degrees); See Card 6A [ANG(l)] for sign conven- 
tion used for ANGB. 


Cards 9CB, 9CC, etc. follow until the information for all NDISB branch 
slope-discontinuities has been given. 


NBCONB 


NBCONB 


The number of boundary conditions applied only to the 
branches. (Total B.C. 's on structure ^7). 

If Card 9D = 0 go to Card 10. 





Card 9DA 

NBCB(I), NODBB(I), LBR(I) 4(315) 

where 

I = 1, NBCONB 

NBCB(I) Type of boundary condition. See Card 15 for description. 

NODBB(I) The node niomber of the particular branch on which the B.C. 

is being applied (see sketch prior to Card 9 description) . 

LBR(I) The branch niimber on which the B.C. is being applied (see 

sketch) . 

A total of seven boundary conditions is allowed, including the primary 
structure and all branches. Therefore, Card 9DB is punched if more than 4 
B.C.'s are to be applied to the branches. 

The cards grouped under the number 9 contain the complete description of 
all branches (except for elastic restraints) . These cards are nested branch 
by branch, such that a branch's material and geometric layout are completely 
described before starting the next branch. After all branches have been 
described, and the branch slope-discontinuity information has been given, then 
the boundary conditions are applied to all branches. It should be noted that 
branches may contain only one material layer. 

An example is given below for a main structure containing two branches, 
each of a different material, and five boundary conditions on the branches. 

For each material a three mechanical sviblayer model is used. The first 
branch contains two elements, while the second branch has three elements. 

The first has one slope-discontinuity, the second branch has none. The 
following list gives the card number (described in this section) in the order 
they would appear in the input deck: 
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Card 10 

NOP, NASP, NTERF 315 

where 

NOP Indicates the type of strain output desired (given at j 

inner and outer surface) 

3 

=0 Average strain at node -I 

=1 Average strain at each node plus strain at 

each Gaussian station - 

=2 Average strain at each node plus strain at 

designated additional points 

= 3 Strain for all three of the above options 

NASP Nuiti>er of additional strain points requested; NASP ^ 50 r 

NTERF . Indicates whether strain information for the boundary of ^ 

' 3 . 

two material layers is to be printed. If NTERF=0 this j 



strain information will not be printed. If there are three 
structural layers in the main structure, then the strains 
at each of the two interfaces will be printed for each 
element. If there are only two layers present, then the 
strains for the one interface will be listed and strains 
along the reference axis will be listed instead of strains 
at a second interface. The actual output is governed by 
the indicator NOP; interface ^;trains are printed for each 
Gaussian station. and for any additional strain points 
as specified by the value of NOP on Card 10. 

If NOP ^ 2 or 3, go to Card 11. 

Note ; It is suggested that the user use N0P=1 or NOP=3 
in order to obtain a complete set of strain output for a 
first run of a problem. NOP=0 or 2 can be used for addi- 
tional runs of the same problem in order to reduce output 
' costs. 

Card lOA 

NSBS(I), NSEL(I), AZET(I) 2I5,D15.6 

where 

I = 1, NASP 

NSBS(I) Number of the substructure on which the additional strain 

point is requested: NSBS = 1 main structure; if NSBS > 1 

the substructure is a branch whose number is (NSBS - 1) 

NSEL(I) The element along the NSBS substructure on which additional 

strain point is requested. No more than 10 additional 
strain points are allowed on any one element. 

AZET(I) Ths s coordinate of the additional strain point measured 

from the first node of the element (s is a fractional 
length (in/in) of the element itself). 

Cards lOB, IOC, etc. are used until all the additional strain points have 
been described. 
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Card 11 


AXG(l), AXG(2), AXG(3) 


3D25. 16 


Card 12 

AWG(l), AWG(2)> AWG(3) 

where 


3D25.16 


AXG(I) 

AWG(I) 


) 


Vectors, of dimension NOGA, contain Gaussian quadrature 

constants, and weights, W^, respectively, for the 

numerical evaluation of 
I 


J f(x) Jx = E f 


The following data appear on Card 11, since N0GA=3; 
0.1127016653792585D+00 0. 5000000000000000D+00 

0.887 2983 346207415D+00 and the data 0.2777777777777778D+00 
0.4444444444444444D+00 0.2777777777777778D+00 on Card 12. 


Card 13A 

TXG(l), TXG(2), TXG(3) 

Card 13B 

TXG(4) 

Ceurd 14A 

TWG(l), TWG(2), TWG(3) 


3D25.16 


3D25.16 


3D25.16 


Card 14fi 

TVte(4) 


D25.16 

Note! If NFL ^ 3, Cards 13B and 14B are eliminated. 

If NFL > 4 the extra temns are added to Cards 13B 
and 14B. 


where 

TXG(I) Vectors of dimension NFL, contain Gaussian quadrature 

constants, x^, and weights, respectively, for the 

numerical integration of 

J fCx)dx =E W. 

-■I ■ ^ 
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If NFL=4, for example, then the following data appear on 
Cards 13A, and 13B: 

-0.8611363115940530D+00 -0. 3399810435848560D+00 

0.3399810435848560D+00 0. 8611364115940530D+00 

and the data 

0.3478548451374540D+0 0. 6521451548625460D+00 

0.6521451548625460D+00 0. 3478548451374540D+0 

appear on Cards 14A and 14B. 

Card 15 

NBCOND, NBC(l), NODEB(l), NBC (2), NODEB(2), ... NBC (7), N0DEB(7) 1015 

The number of prescribed displacement conditions to be 
specified on the structure. This number must not exceed 7. 

The identification nvimber and the node number, respectively, 
for which the first prescribed displacement condition is 
to be imposed. 

The second data group of the identification number and 
node number, respectively, for which the second prescribed 
displacement condition is to be imposed. 


WlltSX tl 


NBCOND 

NBC(l) 

NODEB(l) 


NBC (2) 
NODEB(2) 


The appropriate form of the data group NBC (I) and NODEB(I) should be 
repeated NBCOND times. If NBCOND=0, that means there is no prescribed dis- 
placement condition to be imposed on the structure; then, leave NBC (I) and 
NODEB(I) blank. 

The prescribed displacement condition identification number can be equal 
to 1, 2, or 3, depending upon the type of the prescribed displacement condi- 
tion. Its description follows: 


NBC(I)=1 Symmetry displacement condition, setting the degrees of 

freedom v and ^ at the node NODEB(I) to zero. 

NBC(I)=2 Ideally clamped condition, setting v, w, and ij; at node 

NODEB(I) to zero. 
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NBC (I) =3 Smoothly-hinged condition/ setting v and w at node NODEB(I) 

to zero. 

Card 16 

NQR, NORP, NORU 315 


where 


NQR 


Indicator, which if > 0 indicates that the structure is 
subjected to elastic restraints (point and/or distributed). 


NORP The number of point elastic restraints (elastic restoring 

springs) which are to be prescribed over the structure. 
This number must not exceed 4. 


NORU The number of local distributed elastic restraints (elastic 

foundations) which are to be prescribed over the structure. 
This number must not exceed 4. 


If there are no prescribed elastic restraints on the structure, set 
NQR=0 and leave NORP and NORU blank. 


Card 16A and Card 16B are included only if NQR > 0 on Card 16. If 
N0RP=0, skip to Card 16B. 

Card 16A 

SCTP, SCTY, SCRP 3D15.6 

Card 16AA 

NREL(l), REX(l), NREL(2), REX(2) ... NREL(4), REX(4) 4(15,015.6) 

where 

SCTP The translational tangential restoring spring elastic 

constant (Ib/in) . 


SCTY The translational radial restoring spring elastic constant 

(Ib/in) . 

SCRP The torsional restoring spring elastic constant (in- lb/ 

radian). 

NREL(I) / The element nxmuber and the length coordinate along the 

REX (I) { reference axis from the node NREL(I) of the element. 
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respectively, at which the Ith point elastic restraint is 
to be specified. 

The data group NREL(I), REX (I) should be repeated NORP times. 

If NORU=0 in Card 16, omit Card 16, and Card 17 follows directly. 


Card 16B 

SCTU, SCTW, SCRU 

Card 16BB 

NRST(l), NREU(l), ... NRST(4), NREU(4) 

where 


3D15.6 


815 


SCTU 


SCTW 


SCRU 

NRST(l) 

NREU(l) 


NRST(2) 

NREU(2) 


Elastic foundation modulus in translation along the 

2 

circumferential direction (Ib/in ) . 

Elastic foundation modulus in translation along the 

2 

normal direction (Ib/in ) . 

Elastic foundation modulus in torsion (in-lb) / (rad-in) . 

The first element and the number of elements , respectively 
over which the first elastic foundation is to be specified 
(the first elastic foundation is distributed to element 
NRST(l), through and including element (NRST (D+NREU (1)-1) 

Note: The element numbers used here must be those defined 

after branches have been added. See Fig, 12c. 

The first element and the mamber of elements over which 
the second elastic foundation is to be specified. 


Data group NRST (I) and NREU(I) are repeated NORU times. 

Cards 17 through 20 are used to describe the initial velocity distribu- 
tions. 

Card 17 

NV, IOTA, lOTB, lOTC 415 

where 

NV Indicator, which if > 0 indicates that the initial 

velocities are to be prescribed over the structure. 

IOTA Number of local uniform initial normal velocity distribu- 

tions. 




fry' 


, .vB'wrpjrWcra^'^sCJaiS^ 


lOTB 


lOTC 


Number of nodes at which the initial generalized nodal 
velocity components are to be specified. 


Number of local sine-shaped initial normal velocity distri- 
butions . 

If there are no initial velocity distributions, set NV=0 and leave IOTA, 
lOTB, lOTC blank; then skip to Card 21. 

If IOTA>0, the following No. 18 Card(s) must be included directly; other- 
wise, skip to Card 19. 


Card 18A 

lEl, xE2 

Card 18AA 

WRAD, WRADl, ANGVl, WRAD2, ANGV2 

where 
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5D15.6 



WPAD 

WRADl"] 
ANGVl ( 


mADl'l 
ANGV2 i 


The first element and the number of elements, respectively, 
over which the first local uniform initial normal velocity 
is to be prescribed. The niomber IE2 must be greater than 
one. 

The value of the initial normal velocity w^ (in/sec) for 
the first local uniform initial velocity distribution. 

The initial radial velocity w (in/sec) and initial 
angular velocity (rad/sec), respectively, which are 
to be prescribed on node lEl. 

The initial radial velocity and angular velocity which 
are to be specified on node IE1+IE2. 


Additional Cards 18B, 18BB, and 18C, 18CC ... are punched in the same 
format, until the total nvimber of cards equals IOTA given in Card 17. 

It perhaps should be mentioned that the values of WRADl, ANGVl and WRAD2, 
ANGV2 are included here in order to smooth the discontinuous function of the 
local uniform initial noirmal velocity distribution at two edge nodes by a 
continuous function (because in the finite-element model the compatibility 


of V, w, ijj, and x at boundary nodes of each element with neighboring elements 
is required). 

If IOTB>0 in Card 17, the following No. 19 Card(s) must be included; 
otherwise, skip to Card 20. 


Card 19 

NODEV, VRAD, WRAD, ANGV 

where 


15, 3D15.6 


NODEV 



The node momber at which the initial generalized nodal 
velocity components are to be prescribed. 

The initial tangential velocity v^ (in/sec) , normal 
velocity w^ (in/sec), and the angular velocity, 

(rad/sec), respectively, which are to be prescribed on 
node NODEV. 

Additional Card(s) 19A, 19'B, ... are punched in the same format until 
the total number of cards specified equals lOTB in Card 16. 

Card(s) 20, 20 a, 20B . . . are included only if lOTOO in Card 16. 

Card 20 

ISl, IS2, WRZU) 2I5,D15.6 

where 

151 The first element and the number of elements over which 

152 the first local sine-shaped initial normal velocity dis- 
tribution is to be prescribed. 

WRAD The peak value w^ (in/sec) of the first sine-shaped 

initial normal velocity distribution. 

Card(s) 20A, 20B ... are punched in the same manner, until the total 
n umb er of No. 20 cards equals lOTC on Card 17. 

The remaining Cards (21 through 25 and 27) specify the amplitude, direc- 
tion, and. distribution of the subsequent time-dependent externally- applied 
forcing function. 
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4D15.6 


Card 21 


TBEGIN, TFINAL, AMPIFV, AMPIFW 


where 


TBEGIN 

TFINAL 


AMPIFV 

AMPIFW 


Times (seconds) which define the beginning cind the end, 
respectively, of the complete externally- applied forcing 
function; i.e., the complete forcing function starts at 
TBEGIN and ends at TFINAL. 

The circumferential and the normal components, respectively 
of the normal force (amplitudes of the forcing function) 
(lbs) versus time history at time TBEGIN. 


If there is no externally- applied forcing function during the run, set 
both TBEGIN and TFINAL equal to zero and leave AMPIFV, AMPIFW blank; if no 
forcing function is to be prescribed, go to Card 26. 

Card 22 

NOFTl, N0FT2, N0FT3 315 

where 

NOFTl The number of concentrated loads whicfe are to be prescribed 

(N0FT1£4). 

N0FT2 The nvimber of local uniform load distributions which are 

to be prescribed (NOFT2£4) . 

N0FT3 The number of local sine-shaped load distributions which 

are to be prescribed (NOFT3j<4) . 

Omit data group 23 if NOPT1=0 on Card 22. 

Card 23 

JELEM(l), ETA(l), RTOV(l) , RTOW(l) 15,30.15.6 

where 

JELEM(l)^ The element number and the length coordinate along the 
ETA(l) [ reference axis from node JELEM(l), respectively, at which 
the first concentrated load is to be prescribed. 
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RTOV(l) 

RTOW(l) 


The normalized values of the first concentrated load with 
respect to the nominal forces in the circvunferential and 
the normal directions, respectively, (Ib/lb) . 


Card(s) 23A, 23B, ... are repeated in the same format, until the total 
number of No. 23 cards equals NOFTl given in Card 22. 

Skip data group Card(s) 24 to Card 25 if NOFT2=0 on Card 22. 


Card 24 


NSTF2(1), NELF2(1), RT02V(1), RT02W(1) 2I5^2D15.6 

where 


NSTF2(1) 

NELF2(1) 


The first element and the niamber of elements, respectively, 
over which the first local uniform load is to be distribu- 
ted. 


RT02V(1)~] 
RT02W(1) 


J 


The normalized values of the first local uniform load 
distribution with respect to the nominal amplitudes in 
the circumferential and the normal directions, respectively, 
(lb- in/lb-in) . 


Card(s) 24A, 24B, ... are repeated in the same format until the total 
number of No. 24 cards equals NOFT2 on Card 22. 

Card(s) 25 are included only if NOFT3>0; otherwise, skip to Card 26. 

Card 25 

NSTF3(1), NELF(3), RT03V(1), RT03W(1) 2I5,2D15.6 


where 

NSTF3(1) 

NELF3(1) 


RT03V(1) 

RT03W(1) 


The first element and the number of elements, respectively, 
over which the first local sine-shaped forcing function is 
to be distributed. 

The normalized values of the fist local sine-shaped forc- 
ing function with respect to the nominal amplitudes in 
the circumferential and the normal directions, respec- 
tively ( lb- in/lb-in ) . 


Card(s) 25A, 25B, ... ajre repeated until the total number of No. 25 cards 
equals N0FT3 on Card 22. 
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Card 26 


ICONT 


15 


where 

ICONT Integer which if greater than 0 indicates that this is a 

continuation run. In order to use this option# it is 
necessary to obtain the following continuation cards from 
a previously-run job. To do this, set the variable MPU=1 
at the beginning of the MAIN routine. This will cause 
the following set of data cards 26A through 26 NA to be 
punched. When using this deck, set IC0NT=1 and use the 
same data cards as used before , except to change the 
values of MM and Ml on Card 1 and to modify Card 27. 

If ICONT=0, skip Cards 26A-26NA and go to Card 27. 

If the indicator ICONT is greater than zero, the continuation deck pro- 
duced from the output of the previous run follows immediately. The continua- 
tion deck contains the following information; 


Card 26A 

IT, TIME, Tl, T2 

where (L=l for main structure; L=2, NBR+1 for branches); 


T5,3D20.13 


IT 


TIME 



The number of the time cycle at which the previous run 
had stopped, and is the beginning tjjne cycle of the 
present continuation run. 

The absolute time at which the previous run stopped, and 
is the beginning time of the present continuation run. 

Times at which the present linear segment of the force 
versus time curve starts and stops acting, respectively. 


Card 26B 

AMPIFV, AMPIFW, AMP2FV, AMP2FW 

where 


4D20.13 


AMPIFV 
AMPIFW 
AMP2FV ' 
AMP2FW 

Card 26C 

SLOPEV, 


Nominal force amplitudes in the tangential and normal 
directions, respectively, at the beginning (1) and end 
(2) of the present linear segment of the force versus 
time curve. 


SLOPEW, APDEN, CINETO 


4D20.13 


where 


SLOPEV 

SLOPEW 


APDEN 


CINETO 


Slopes of the piecewise linear segment approximation 
of the present nominal force versus time curve in the 
tangential and the normal direction, respectively. 

Total work done on the structure by externally-applied 
forces up to the present time step. 

Initial kinetic energy imparted to the structure. 


ISTAA(L), BIGA(L), BTIMA(L), ISURA(L) 2I5,2D20.13,I5 

main structure; L=2, NBR+1 for branches): 

Information for maximum "additional-point strain". Same 
as their counterparts on Card 26E. 


Card 26E 

IBIG(L), ISURF(L), ISTA(L), BIG(L), BTIME (L) . 315,2020.13 

where (L=l for main structure; L=2, NBR+1 for branches): 

IBIG (L) The element number whose computed tensile strain exhibits 

the largest value during the previous run. 

ISURF(L) Equals 1 means largest computed tensile strain occurs on 

the inner surface; equals 2 means on the outer surface. 

ISTA(L) The Gaussian station at which the maximum strain occurred 

BIG(L) The largest computed tensile strain during the previous 

run. 


Card 26D 

IBIGA (L) , 
where (L=l for 
IBIGA 
ISTAA 
BIGA 
BTIMA 
ISURA 
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BTIME(L) 


The time at which the largest computed tensile strain 
occurred during the previous run^ 


Card 26F 

IBI(L), ISUR(L), BI(L), BTIM(L) 2I5,2D20.13 

where (L=l for main structure; L=2, NBR+1 for branches) : 


IBI(L) 
ISUR(L) I 
BI (L) I 
BTIM(L) \ 


Information for maximiun average nodal point strain. 
Same as their counterparts on Card 26E;. 


CArd 26GA 

DISP(I) 4D20.13 

where 

DISP(I) The displacement of the Ith degree of freedom at time 

cycle IT-1. 

Card 26 HA 

DELD(I) 4D20.13 

where 

DELD(I) The displacement increment change of the Ith degree-of- 

freedom of the structure at time cycle IT. 


Card 26IA 

DIS(I) 4D20.13 

where 

DIS(I) The displacement of the Ith degree of freedom at time 

cycle IT. 

Card 26JA 

DISMI(I) 4D20.13 

where 

DISMI(I) The displacement of the Ith degree of freedom at time 

cycle IT- 2. 

Card 26KA 

PMECH(I) 4D20.13 
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where 


r 


FMECH(I) 

Card 26LA 

FLVA(I) 

where 

FLVA(T) 


Assembled generalized load vector due to externally- 
applied forces at degree of freedom I. 

4D20.13 

Assembled generalized load vector due to large deflections 
and elastic plastic strains at each degree of freedom I. 


* Note : Cards 26GA-26LA are individually repeated until information for 
each degree of freedom is included, with 4 different values/card. 

Card 26MA 

SNS(IR,J,K,L) 4D20.13 

where 

SNS (IR, The axial stress on the Lth mechanical sublayer at the 

Kth depthwise Gaussian point at the Jth spanwise Gaussian 
station of the IRth element at time cycle IT. 

Card 26NA 

SNP(IR,J,K,L) 4D20.13 

where 

SMP (IR, J,K,L) The total plastic strain of the Lth mechanical sublayer 
at the Kth depthwise Gaussian point at the Jth spanwise 
Gaussian station of the IRth element. 

* No-te : Cards 26MA and 26NA are both individually repeated until all values 
for the entire structure are included, with 4 different values/card. 


Card 27 

T2, AMP2FV, AMP2FW 

where 

T2 


3D15.6 


AMP2FV~) 
AMP2FW 


J 


The time (seconds) of the second point to be specified on 
the normal force versus time curve. 

The nominal circumferential and normal force amplitudes, 
respectively, of the second point to be specified (lbs) . 
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the 


Cards 27A, 27B, ... have the same format as Card 27 and read successive 
values of T2, AMP2FV, and AMP2FW. T2, AMP2FV, and AMP2FW on each card give 
coordinates of each succeeding point on the force versus time curve. There 
is no limit to the number of No. 27 cards that can be used when specifying 
the total forcing function by coordinates of the force versus time curve. 
However, it is important that the final No. 27 card specify the nominal 
force at a time which must be equal to or greater than TFINAL specified on 
Card 21; otherwise, computation will stop. 

*Note ; If ICONTf^O on Card 26 and this is a continuation run, the only 
No. 27 cards to be included are those with a T2 greater than the starting 
time of this continuation run. 

4.3 Input for Special Cases 

While the JET 5A program is capable of analyzing the large-deformation, 
elastic-plastic response of a container /deflector structure, there will be 
instances when the user will wish to analyze only the elastic response of a 
material, or analyze the response of a membrane material. The JET 5A program 
is capable of performing these analyses with the following input and internal 
modifications. 

4.3.1 Special Cases of the General Stress-Strain Relations 

In the following the specific input data for three special cases of the 
general elastic, strain hardening constitutive relation handled by the computer 
program are given. Only the relevant data are noted. (L=l for main structure; 
L=2 to NBR+1 for the NBR branches; M=1 to NLAY) ; 

1. Purely Elastic Case 

Set NSFL(M,L)=1 on Card 2 and Card 9A, and make EPS(M,1,L) and 
SIG(M,1,L) on Card 4AA and Card 9AA sufficiently high so that no 
plastic deformation occurs; for example EPS (M,1,L) =1.0, SIG(M,1,L)= 
ES(M,1,L), where ES(M,1,L) equals the elastic (Young's) modulus. 

2. Elastic, Perfectly-Plastic Case 

Set NSFL(M,L)=1 on Card 2 and Card 9Av and make EPS (M, 1,L) =SIG (M,1,L) / 
ES(M,1,L) on Card 4AA and Card 9AA. 


3 . 


Elastic, Linear Strain-Hardening Case 

Set NSFL(M,L)=2 on Card 2 and Card 9A and set EPS (M,1,L)=SIG (M, J,L)/ 
ES(M,1,L). Also EPS(M,2,L) and SIG(M,2,L) on Card 4AA and Card 9AA 
are taken sufficiently high in order to avoid plastic deformation in 
the second si:iblayer. For example, EPS (M, 2, L) =1.0, and SIG(M,2,L) = 
a.0-EPS(M,l,L))*ES{M,2,L)+SIG(M,l,L), where ES(M,2,L) is the slope 
of the segment in the plastic range. 

4.3.2 Membrane Analysis 

If the user wishes to analyze a membrane (a structure with no appreciable 
bending stiffness), there are five basic steps to be undertaken. 

1. Set NFL = 1 on Card 1 

2. Set TXG(l) = 0.0 on Card 13A 

3. Set TWG(l) = 2.0 on Card 14A 

4. Set NTERF = 0 on Card 10 

5. This step requires an internal change to the MAIN program of JET 5A. 
At the appropriate locations in the MAIN program, during the strain 
calculations for printout, comment cards are present to instruct the 
user as to which terms should be changed or zeroed out. These 
changes eliminate the bending terms present in Eq. A. 12. 

4.4 Description of the Output 

The printed output begins with a partial reiteration of the program 
input which identifies the problem being solved. This output includes infor- 
mation on: (1) initial geometry, (2) the nodal and element numbering system 

originally assigned by the user, (3) the new updated nodal and element system 
generated internally by the program if branches are present, (4) the branch 
attachment points > (5) the material properties for each layer of the main 
structure and for each branch, (6) the boundary conditions and elastic 
restraints as input, (7) the initial velocity locations and magnitudes, (8) 
the externally applied force locations, magnitude and timewise distribution, 
(9) the Gaussian stations and weights used in the program, (10) the assembled 


mass and stiffness matrices, (11) the time step used in the program, and (12) 
an internally-calculated reference time step based on the maximum structural 
frequency. Illustrative outputs from example runs of JET 5A are listed in 
Section 7 . 

After the initial printout has been completed, the following information 
is printed out after cycle Ml has been completed, and at every M2 cycles 
thereafter (see Subsection 4.2, Card 1). In addition, for JET 5A runs, a 
printout is made before and after the first cycle to confirm the proper 
implementation of the user's designated initial velocity information. 

CYCLE = [IT] 

ELEMENT SI STAl SO SI STA2 SO SI STA3 SO 

■ 1 ■ 

2 

3 ■ 


cycle = [IT] 

STRAIN AT ADDITIONAL POINTS SI SO El EO 

1 ' 

2 


J = [IT] time = [TIME] 

WORK INPUT INTO RING 
RING KINETIC ENERGY 
RING ELASTIC ENERGY 
RING PLASTIC WORK 

ENERGY STORED IN ELASTIC RESTRAINTS 

1 V W PSI CHI COPY COPZ 

1 - ' ■ 

2 ' . ■ 


= [CINETT] 

= [CINET] 

= [ELAST] 

= [PLAST] 

= [SPDEN] 

L M STRAIN (IN) STRAIN (OUT) 
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SUBSTRUCTURE MSTR EEE TIME STA 

.' 1 - 

2 ■ " ■ ' ■ 

SUBSTRUCTURE LARGEST ADD. PT. STRAIN ELEM ADD. PT. TIME 

1 ": 

2 ■ ■ ■ 

SUBSTRUCTURE LARGEST NODAL STRAIN NODE SURF TIME 

1 ' 

2 

• 

• ■ ■ ■ 

•REACTIONS AT NODE RV(LBS) RW(LBS) RM (IN-LBS) 


where 

IT = Cycle number 

TIME = Elapsed time corresponding to the end of cycle IT (sec.) 

CINETT = Total work imparted to the structural ring up to the 

present time by the external Idadings (in-lb) . 
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GINET 


BLAST 


BLAST 


= The current value of kinetic energy present in the struc- 
tural ring* (includes both the rigid body and the relative 
kinetic energies) (in-lb). 

= Total elastic strain energy stored in the entire structural 
ring at the present time instant (in-lb) . 

= Total plastic work** done on the structural ring (mechan- 


ical work dissipated during plastic flow) (in-lb) . 

SPDEN = Total energy stored in the elastic-restoring springs and/ 

or the elastic foundations at the current time instant 
(in-lb) , if the presence of elastic restraints is speci- 
fied. 

SI = Strain (same as e of Eq. A. 12) at the inner surface 

of the ring 

SO = Strain at the outer surface of the ring 

Note : If the strains at the interfaces of a multilayer 

structure are to be printed out, every other line will be 
strain at the inner and outer surface (starting with line 
one) £i'nd the second, fourth, sixth, etc. lines will be 
strains at interface one and two (going from the inner to 


It should be noted that the rigid body part of the kinetic energy, which is 
used to accelerate the "rigid body" mass of the structure, can be extracted 
and identified separately. However, for the present program dealing with 
rather general structural geometries and with various support/restraint con- 
ditions, it would be very unwieldy (but not impossible) to identify these 
separate kinetic energies; hence, the total kinetic energy is calculated and 
printed out. 

The plastic work done on the ring is estimated by siibtracting the sum of the 
elastic and kinetic energies present in the ring from the total input energy 
(due to the externally-applied load and the initially- imparted kinetic energy) ; 
i.e., CINETT-CINET+ELAST+PLAST+SPDEN. It should be mentioned that the approxi- 
mate nature of this numerical calculation will sometimes yield impossible re- 
sults such as negative values of plastic work or values greater than zero 
when the ring has not yet reached a plastic condition; thus, the value of 
plastic work should be considered only approximate, and spurious results as 
noted above should be ignored. 
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STAl 

STA2 

STA3 

El 

EO 

I 


V 

w 

PSI 

CHI 

COPY 

COPZ 

L 


the outer surface). If there is only one interface, the 
strain corresponding to the second interface will be the 
strain along the reference axis. This will be true for both 
strains at Gaussian stations and at additional strain points 

= Spanwise Gaussian Station at which strain was calculated. 

= Relative elongation at inner or outer surface, respective- 
ly, at the additional strain points; obtained from 
El = A+2 y^^ - 1. 

= Node number. For a partial ring, the value of the total 
ntunber of nodes equals the value of the total number of 
elements plus one. For a complete ring, the value of the 
total ntimber of elements plus one. For a complete ring, 
the value of the total number of nodes equals the value 
of the total number of elements. 

= The middle plcuie axial displacement at node I (in) . 

= The middle plane transverse displacement at node I (in) . 

= The generalized nodal displacement = Ov/3r|) - v/R at 
node I (rad) . 

= The generalized nodal displacement x = (9v/3ri) + w/R at 
node I (rad) . 

= The y- location of node I in the global (inertial) coordi- 
nate system (in) . 

= The Z- location of node I in the global coordinate system 
(in) . 

= Axial internal force resultant over the cross section at 
the midspan point of element I (lb). 

= Internal bending moment of the cross section at the mid- 
span point of element I (lb). 


M 


STRAIN (IN) = Average strain on the inner stirface at node I.* 

STRAIN (OUT) = Average strain on the outer surface at node I.* 

SUBSTRUCTURE = The portion of the ring being considered. 

1 = main structure 

2 = 1st branch 

3 = 2nd branch 

MSTR - Maximum strain on the substructure at a Gaussian station. 

ELE = Element on which max. tension strain occurred. 

TIME = Time at which max. tension strain occurred. 

STA = Gaussian station at which max. tension strain occurred 

on element ELE. , 

NODE = Node at which largest average value of tension strain 

occurred. 

ELEM = Element on which largest value of tension strain occurred 

at an additional strain point. 

ADD. PT. = Additional Point Number. 

time = Time at which the max. tension strain occurred. 

REACTIONS AT NODE = The node ntunber of a constrained node. 

RV = The tangential reaction force (lbs). 

RW = The normal reaction force (lbs). 

RM = The reaction moment ■ (in- lbs) . 

Note; Checks for largest average nodal strain and largest additional-point 
strain are made only at printout cycles. Check for largest Gaussian- 
station strain is made at each cycle . 

* 

At nodes on the main structure where a branch connection occurs, the contrxbu 
tion of strain from the branch is not included in the nodal averaging process 
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At the conclusion of the run, a final update of the maximum strain occurr- 
ing on each substructure (main structure and each branch) and for the additional 
strain points on the main structure and each branch is- printed out. Also, a 
note as to whether or not continuation cards were punched is made. 


4.5 Guidelines and Restrictions for Code Usage 

4.5.1 General Instructions 

The JET 5A computer code is capable of handling a wide variety of tran- 
sient, large-deflection structural response problems involving external load- 
ings. This capability is beneficial to the ugier since it is contained in one 
computer program; however, it can be unnecessarily costly to run the program 
if all of the options included are carried along but are not being used. 

In order to save storage locations and, therefore, save computer costs on 
each run, several subroutines can be removed when they are not used during that 
particular job siabmittal. 

The following is a list of stibroutines which must be included in every 
run of the JET 5A program; 


MAIN 

ASSEP 

ASSEM 

ELMPP 

ERC 


FAC 

PRINT 

IDNT 

SOLV 

IMPULS 

STRESS 

MINV 


CTIULT 



The remaining subroutines; BRAN, LOADEQ, LOADFT, QREM, ROTAT, and TSTEP 
may be left out depending upon the type of problem being solved. 

Svibroutine TSTEP may be optional when the user desires (i.e. when the 
user does not specify DELTAT = 0.0 on Card 5) . The user merely has to omit 
the TSTEP subroutine, and only inputs the following three cards instead of 
TSTEP; 


SUBROUTINE TSTEP (AMASS, STIFK, DELTAT) 

RETURN 

END 


In like manner, if the user does not wish to apply any branches to the 
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i 

main structure, the BRAN subroutine becomes optional, 
used, BRAN is input as follows:; 

SUBROUTINE BRAN (NBR) 

RETURN 
END 

Thus, for any subroutine that is not being used for a particular run, 1 

just submit the first card of the subroutine (the name card) and the RETURN 
and END cards. This will save the user input costs, compilation costs, and 

i' ■' 

storage costs. The same procedure is used for QREM if no elastic restraints | * 

are defined, for ROTAT if no branches or slope discontinuities are used, and | 

fi : ^ 

for LOADEQ and LOADFT if no external forcing functions are specified. I 

..... 

Finally, it should be noted that if the various layers of the multi- 
layer structure consist of the same material and if a branch is attached and 
consists of a different material, unreliable results can be expected because 
the present element assembly logic does not accommodate this situation prop— 5 

erly . . ^5 ; ; 

4.5.2 Comments on Strain Calculations 

In the present JET 5A program, options are available which allow the user 

'•i' ' 

to obtain strain printout at the spanwise Gaussian stations (which include the 
element midspan location), and/or at additional points on the structure sped- 
fied by the user. Nodal average strains are given automatically at each 

regular printout cycle. This flexibility can be of great value to the User, t ) 

but certain precautions should be taken by the user in interpreting the strain ^ / 

results . ' 

The strain-displacement relation employed in the present curved beam 
elements is given by Eq. A. 12. An examination of this equation shows tJiat 
nonlinear terms are included only in the membrane behavior, and only linear 
terms are included in the bending behavior.. Thus, the membrane nonlinearities 
have been assiamed to be more significant than the bending nonlinearities. The v 

calculated distribution of strain may be quite different from element to ele- 
ment, and the strain distribution within each element will, in general, not be 1 

the same as the "exact" distribution. This behavior corresponds to the fact 
that in the present finite-element model the predicted strain distribution j 


I 

If no branches are 1 


I 

I 
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approximates the actual strain distribution in an average (integral) sense, and 
not in a pointwise sense. Although the calculated distribution may be the same 
as the "exact" distribution at some points within the element, the choice of a 
"best"point (or points) for strain evaluation within an element is not obvious. 
The choice of v,w,\p, and x as generalized nodal parameters assures membrane 
strain continuity at the nodes, but in general the bending strain will not be 
continuous at the nodes; thus, the predicted strains at the inner and outer 
surface of an element will not, in general, be continuous at the nodes. 

Because of these facts, certain precautions should be taken by the user 
when assessing strain distributions in space and/or time. If detailed strain 
distributions are required over a portion of the structure at a particular 
time instant, it is suggested that several printout points be chosen in each 
■element (e.g. Gaussian stations and nodal averaged points) in the region of 
interest. When these calculated values are plotted, the analyst can then make 
a reasonable "faired" estimate of the "proper" distribution. It should be 
noted that severe strain gradients within an element do not necessarily indi- 
cate poor behavior of the solution; however, it is in these regions where the 
analyst must exercise the greatest caution in mciking a reasonable faired 
estimate of the proper distribution. Although not conclusive, experience to 
date with the present JET 5A computer code suggests that these regions of pre- 
dicted severe strain gradients are most often observed near clamped boundaries. 

If strain time-history information is required at various points on the 
structure, these points can be specified as additional strain points and the 
time histories may be obtained directly. In addition, it is recommended that 
spatial distributions near these points of interest be obtained at several 
time instants to assess whether or not the strain at the point of interest is 
in reasonable agreement with the curve-fitted (or faired) distribution in that 
region of the structure. If these steps are followed, a reasonable engineer- 
ing assessment of strain information should be obtained. 

The equations in Appendix A have been developed within the assumption of 
large deflections but small strains. Thus, reliable results may not be 
obtained in localized regions where large strains are predicted. However, the 
actual strain level at which the "small strain" assumption becomes invalid is 


npt known. Thus, the limitations of the present analysis, for practical 
engineering problems, cannot be clearly stated; further study of the limita- 
tions of the present analysis versus appropriate well-defined experimental 
data is required. In the future it is recommended that models which can 
accommodate arbitrarily large strain be developed for both two-dimensional 
(planar) and three-dimensional (non-planar) deformations. In the meantime, 
however, it is believed that the capabilities of the present JET 5A analysis 
and program can provide useful engineering estimates . 

4.5.3 Comments on Code Use on Other Computer Systems 

The JET 5A computer code has been exercised largely on an IBM 370/168 
computer system at the MIT Infonnation Processing Center with MIT's version 
of IBM's G compiler (including all updated IBM modifications). The example 
problem results given in Subsection 7.1.3 were obtained from this system. 

Each user will need to assess what kind of computer code statement 
changes need to be made (if any) to the FORTRAN IV source code given in this 
report in order to adapt the code to his particular computer facility. The 
user should be aware of the fact that the use of different compilers at a 
given computer facility can produce somewhat different transient response 
predictions. For example, the use of a TSS compiler with an IBM 360 
system at the NASA Lewis Research Center led to slightly different transient 
strain predictions and significantly different support reactions than given in 
the solution results of Subsections 7.1.3 and 7.2.3 (for CIVM-JET 5B) with code 
modifications included to adapt to that NASA system. However, subsequently, 

the "modified adapted" code was used on that IBM 360 system with NASA's 
H-extended compiler; the results agreed exactly with those given in the present 
report. For the two example problems (see Siibsections 7.1 and 7.2) , some 
results obtained with several computing systems and compilers at NASA-Lewis 
and MIT are given in the table on page 297. 


SECTION 5 


f 


USE OF THE CIVM-JET 5B PROGRAM 


: ! 


The CIVM-JET 5B program has been designed to be as similar to the JET 5A 
program as possible. This will aid the user in adapting from one program to 
the other. The user is encouraged to read Section 4 before using Section 5, 
because this section depends on information already covered in Section 4. 
Subsections 4.1 and 4.4 hold equally well for both JET 5A and CIVM-JET 5B and 
are not repeated in this section. 



5.1 Input Information and Procedure 

The input information required for CIVM-JET 5B is very similar to that 
just described in Subsection 4.2 for JET 5A, except for some slight modifica- 
tions. The data cards are listed in the following. To avoid needless repeti- 
tion, only variables which newly appear and/or have different definitions are 


described. 



, 

FORMAT 

i ■ 

Card 1 


■ 

IK, ICP, NLAY, LREF, NOGA, NFL, MM, Ml, M2, ICON 

1015 

■ ■ /i' • 

? . ■ 

Card 2 



NSFL(1,1) NSFL(NLAY, 1) 

315 


Card 3A 


■ 'P 

DENS(1,1), DS(1,1), P(l,l) 

3D15.6 

■ ;1 / 

Card 4AA 


'1 f ■' 

EPS (1,1,1), SIG (1,1,1), EPS (1,2,1), SIG (1,2,1) 

4D15.6 

1 


Additional Cards 4AB and 4AC are punched in exactly the same manner as | 

Card 4AA until the number of coordinate pairs equals NSFL(1,1) punched on | 

'* .... 

Card 2 for layer 1. The total number of coordinate pairs must not exceed 5 | 

for any layer. Do not include any iinneeded (blank) cards. | 

Cards 3 through 4 are repeated for each additional layer in the multi- | 

5 ■ 

layer ring until the number of sets of cards equals NLAY (given on Card 1). s 

The total number of card sets must not exceed 3. ^ 

. ■ 

I 

- 'i 1 ■ ■ 

5 ■ 
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Card 5 

B(l), DELTAT 2D15.6 

Card 5A 

Y(l), Z(l), ANG(l) 3D15.6 

Additional Cards 6B, 6C ... are punched in exactly the same format as 
Card 6A until the total number of No. 6 cards equals (IK+1) for a partial ring 
and equals IK for a complete ring, where IK is the value appearing on Card 1. 
See Card 6A, Subsection 4.2, for further restrictions. 

Card 7A 

H(l,l), ... H(l, NLAY), H(2,D... 5 d15.6 

Card(s) 7B, 7C, ... are repeated in the same format until the thicknesses 
of each layer of the ring at every nodal station are defined. The total number 
of data on Cards 7 (with 5 data on each card) should be equal to NLAY*IK for a 
complete ring and equal to NLAY*(IK+1) for a partial ring. 

Card 8A 

NDIS 15 

If there are no slope discontinuities on the main structure, set NDIS=0 
and go to Card 9. 

Card 8BA 

NEDI(I), ANGDI(I) 4(I5,Dl5.6) 

Additional Cards 8BB, SBC, etc. are used until all of the "slope dis- 
continuities" are described. See Fig. 10 for a further description of the 
discontinuity option. 

The sequence of cards starting with Card 9 and going through Card 9DB 
•contains all the data for the single layer branches to be applied to the main 
structure except that elastic restraints must be handled as one unit on Card 
16. See Subsection 4.2 for a complete explanation of the branch option. 

Card 9 

NBR 15 

If NBR=0 Go to Card 10. 
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Card 9A 

NSFL(1,L), B(L), DENS(1,L), DS(1,L), P(1,L) 15, 4D15.6 

Card 9AA 

EPS(1,J,L), SIG(1,J,L) 4D15.6 

Additional Cards 9AB and 9AC are punched in exactly the same manner as 
Card 9JiA until the number of coordinate pairs equals NSFL(1,L) punched on Card 
9A. Do not include any unneeded (blank) cards. 

Card 9B' 

NELT(I), NODP(I), LHIT(I), LATT(I) 415 

where 

I 

LHIT(I) 


LATT(I) 


Card 9BA 

YB(I,J), ZB(I,J), ANB(I,J), HB(I,J) 4D15.6 

where 

I = branch mamber, J = node momber 

See Siibsection 4.2 for further restrictions. 

Cards 9BB, 9BC, etc., are punched until (NELT+1) nodes have been described. 


Number of branch 1=1, NBR 

Determines whether or not branch can be impacted: 
LHIT(I)=0 No impact 

LHIT(I)=1 Impact 

Note : While it may be useful to allow branches to be 

impacted at some future time, at present branch 
impact is not allowed. Set LHIT(I)=0 for all 
CIVM-JET 5B computer runs . 

Determines where branch is to be attached. 

LATT(I)= -1 inner surface 
outer surface 


midsurface of respective layer. 
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Card 9C 


NDISB 15 

If there are no discontinuities on the' branches, set NDISB=0 and go to 
Card 9D. 

Card 9CA 

NEDIB, NBDI, ANGB 2I5,P15,6 

Cards 9CB, 9CC, etc., follow until the information for all NDISB branch 
slope-discontinuities has been given. 

Card 9D 

NBCONB 15 

If NBCONB=0 go to Card 10. 

Card 9 DA 

NBCB(I), NODBB(I), LBR(I) 4{3I5) 

where 

1=1, NBCONB 

See Subsection 4.2 for further remarks about the branch input. 

Card 10 

NOP, NASP, NTERF 315 

If NOP 2 or 3, go to Card 11. 

Card lOA 

NSBS(I), NSEL(I), AZET(I) 2I5,D15.6 

where 

1=1, NASP 

Cards lOB, IOC, etc. are used until all the additional strain points have 
been described. 

Card 11 

AXG(l), AXG(2), AXG(3) 3D25.16 

Card 12 

AWG(l), AWG(2), AWG(3) 3D25.16 
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Card 13A 

TXG(l), TXG(2), TXG(3) 3D25.16 

Card 13B ' 

TXG(4) 3D25.16 

Card 14A 

TWG(l), TWG(2), TWG(3) 3D25.16 

Card 14B 

TWG(4) 3D25.16 

See Subsection 4,2 for further instructions. 

Card 15 

NBCOND, NBC(l), NODEB(l), NBC(2), N0DEB(2), ... NBC(7), N0DEB(7) 915 
See Subsection 4.2 for a full explanation of the above boundary conditions. 
Card 16 

NQR, NORP, NORU 315 

If NQR=0 go to Card 17. 

If NOFP=0, Skip to Card 16B 

Card 16A 

SCTP, SCTY, SCRP 3D15.6 

Card 16AA 

NREL(l), REX(l), NREC(2), REX(2), ... NREL(4), REX(4) ’ 4(15,015.6) 

If NORU=0 in Card 16, omit Card 16B, * and Card 17 follows directly. 

Card 16B 

SCTU, SCTW, SCRU 3015. 6 

Card 16BB 

NRST(l), NREU(l), ... NRST(4), NREU(4) 815 

Cards 17 and 18 contain the input data concerning the attacking fragment (s) 
Card 17 

NF, EFLN(l) 15,015.6 
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where 

NP The number of fragments considered to be- impacting the 

structure. This nimaber cannot exceed 3. 

EFLN(l) The "effective length" of the impact-affected zone. The 

user can select an "appropriate" value for this quantity; 
or, if EFLN(1)=0, the program will choose a value for 
EFLN(l) given by EFLN(l) = At /E/p where E = Young's modulus 
and p = the mass density of a layer. The largest EFLN(l) 
calculated for each layer, will be the "effective length" 
employed for the entire ■ structure. 

Card 18AA 

FH{I), FCG(I), FCGX(I), P£»|&SS(I), FMOI(;i) 5D15.6 

Card 18AB i r 

UNK(I) D15.6 

Card 18AC 

UDOT(I), WDOT(I), ADOT(I), TPRIM(I), CR(I) 5D15.6 

where I - number of fragment. I < 3 

FH(I) The diameter of the circular disk model of the Ith fragment 

(inches ) . 

FCG(I) The Z coordinate of the centroid of the Ith fragment before 

and at the time of its release. The positive direction 
represents a location above the global Y axis (inches). 

FCGX(I) The Y coordinate of the centroid of the Ith fragment before 

and at the time of its release. The positive direction 
represents a location to the right of the global Z axis 
(inches) , 

FMASS(I) The mass of the Ith fragment (Ib-sec^/in) . 

0 

FMOI(I) The mass moment of inertia of the Ith fragment (lb-sec -in). 

UNK(I) Coefficient of friction between the Ith fragment and the 

ring inner surface. 
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UDOT(I) 


WDOT(I) 


ADOT(I) 

TPRIM(I) 


The velocity component of the Ith fragment parallel to the 
global Y axis before initial impact (in/sec) . Positive 
UDOT(I) represents a fragment traveling to the right. 

The velocity component of the Ith fragment parallel to the 
global Z axis before initial impact. The, positive direc- 
tion denotes a fragment traveling in an upward (+Z) direc- 
tion (in/sec). 

The initial angular velocity of the Ith fragment (rad/sec) . 
Positive sign denotes counterclockwise rotation. 

Time (seconds) that the fragment is allowed to travel before 
program starts to track its location. One usage of TPRIM(I) 
allows fragments to be relased after the first fragment has 
impacted and calculations have begun. 

The fragments should be ordered as follows to allow 
proper use of the TPRIM capability: Fragment 1 should be 

the fragment that will make first contact with the ring. 

Time zero is the time of release of this fragment. The 
second group of fragments includes all of the fragments 
that will be released before the first fragment impacts. 

The fragments can be placed in any order within their 
group. The third group contains those fragments released 
after the first fragment- impacts; these must be ordered 
such that the first fragment to be released is first and 
so on within this group. TPRIM (1) = Time of impact of 
first fragment minus time of release. Since time of release 
of fragment one is equal to 0, TPRIM (1) equals time of first 
impact. Actually, TPRIM (1) must be less than the time of 
first impact to guarantee a proper impact solution. 

TPRIM (1) where I = 2, NF equals TPRIM (1) minus time 
of release of the Ith fragment. Thus, TPRIM, for those 
fragments released after the first fragment impacts, will 
be negative. TPRIM (I) must be a multiple of the At used. 
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CR(I) Coefficient of restitution between the Ith fragment and 

the impacted ring inner surface (0^CR<1); equals 1 for 
perfectly elastic, 0 for perfectly inelastic, 0<CR<1 for 
intermediate. CR=1 is usually recommended. 

Cards 18BA, 18BB, 18BC, 18CA, 18CB, 18CC, ... should follow (in blocks of 
three cards) until the information for all NF fragments has been completely 
specified. 

Card 19 

ICONT 15 

where 

ICONT Integer which if greater than 0 indicates that this is a 

continuation run. In order to use this option, it is 
necessary to obtain the following continuation cards from 
a previously run job. To do this, set the variable MPU=1 
at the beginning of the MAIN routine. This will cause the 
following set of data cards 19A through l9NA to be punched. 
When using this deck, set IC0NT=1 and use the same data 
cards as used before , except to change the values of MM 
and Ml on Card 1. 

If ICONT=0, skip Cards 19A-19NA. If the indicator ICONT is greater than 
zero, the continuation deck produced from the output of the previous run 
follows immediately. The continuation deck contains the following information; 

Card 19A 

IT, TIME, IMOU, TAII 2(I5,D20.13) 

where 

IMOU The number of impacts up to the end of the last run. 

TAII Time of initial impact. 

CArd 19BA 

IBIGA (L) , ISTAA (L) , BIGA(Ii), BTIMA (L) , ISURA(L) 215, 2D20. 13,15 

Card 19CA 

IBIG(L), ISURF(L), ISTA (L) , BIG (L) , BTIME (L) 315,2020.13 


Card 19DA 


IBI(L), ISDR{L), BI(L), BTIM(L) 215,2020,13 

Card 19E 

MIRP, TNJ(l), ... , TNJ(NF) 15,3020.13 

where 

NF Nuinber of fragments impacting structure. 

MIRP Number of next fragment waiting to be released. 

TNJ (J) Indicates whether or not the Jth fragment has been 

released: 

TNJ (J) =0.0 not released 

TNJ(J)=1.0 released 

Card 19FA 

OISP(I) 4020.13 

Card 19GA 

OELO(I) 

Card 19HA 

OELOMl(I) 4020.13 

Card 19IA 

FLVA(I) 4020.13 

Card 19JA 

QVEL(I) 4020.13* 

where 

QVEL(I) The velocity at the present instant of time for the Ith 

degree of freedom. 

Card 19KA 

QACL(I) 4020.13 

where 

QACL(I) The acceleration at the present instant of time for the Ith 

degree of freedom. 
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Card 19MA 

SNP(IR, J,K,L) 


4D20.13 


Card 19NA 

FCGUCJ), FCGW(J), ALFA(J), UDOT(J), WDOT (J) , ADOT (J) 4D20.13 

where 

FCGU (J) The centroidal position of the Jth fragment in the Y 

direction at time cycle IT (inches) . 


FCGW(J) 

ALFA(J) 

UDOT (J) 
WDOT(J) 
ADOT(J) 
J=l, NF 


The centroidal position of the Jth fragment in the Z 
direction at time cycle IT (inches) . 

The total angular displacement of the Jth fragment at time 
cycle IT (radians). 


Fragment velocities at time cyle IT (in/sec) ; see Card 18AC 
for more details. 


5.2 Description of the Output 

The output for CIVM-JET 5B is exactly the same as the output generated by 
the JET 5A program (described in Subsection 4.4), except for two places where 
data are given for the attacking fragments. 

After each printout cycle (designated by the user on Card 1), an update 
of the fragments locations and velocities is given as follows: 


FRAG NO. 
1 
2 


FCGU FCGW ALFA 


FRUV 


FRWV FRAV 


where 


FCGU 


Global Y coordinate of the centroid of the fragment at 
the current time instant (in) . 
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0 


ALFA 


FRUV 


FRAV 


— Global Z coordinate of the centroid of the fragment at 
the current time instant (in) . 

= Angular rotation of the fragment to the current time 
instant (rad), 

= The current velocity component of the fragment in the Y 
direction (in/sec) . 

= The current velocity component of the fragment in the Z 
direction (in/sec) . 

= The current angular velocity of the fragment (rad/sec) . 
Positive sign denotes couter-clockwise rotation. 


In addition to the above information, whenever there is an impact, the 
following information is printed out: 


IMPACT NO. 
FRAG = 
FRAG [J] 


TIME = 
DISTANCE = 


TE = 


DURING CYCLE = 


ELEM = 


TOE = 


DISTANCE The ratio of the distance from the first node of the element 

tO; the point of impact divided by the straight line distance 
from node 1 to node 2. 

J The J'th fragment 

Translational kinetic energy of fragment J immediately follow- 
ing the impact. 

RE Rotational kinetic energy of fragment J immediately follow- 

ing the impact. 

TOE Total kinetic energy of fragment J immediately following 

the impact. TOE=TE+RE. 

5.3 Guidelines and Restrictions for Code Usage* 


5.3.1 General Instructions 


The following is a list of subroutines which must be included in every 
run of the CIVM-JET 5B program: 

*The remarks given in Subsection 4.5.3 concerning use of JET 5 a on various 
computer systems apply also to CIVM-JET 5B. 
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ASSEF 

FAC 

MAIN 

PRINT 

ASSEM 

IDNT 

MINV 

SOLV 

ELMPP 

IMPACT 

OMULT 

STRESS 

ERC 

IMPCTE 

PENTRN 



The remaining subroutines: BRAN, QREM, ROTAT, and TSTEP may be left out 

depending upon the type of problem being solved. See Subsection 4.5.1 for a 
detailed explanation. 

5.3.2 Use of Branches vs. Use of Discontinuities 

In the present CIVM-JET 5B program, both branches attached to and slope- 
discontinuities in the main structure can be accommodated. Because of the 
way in which these two features are handled in the program logic and, in 
particular, for determining ring- fragment collision, certain general guidelines 
should be followed by the user for more efficient use of the computer code. 

The dominant consideration involves the determination of ring-fragment 
collision. In the present code, impact on a branch is not accommodated, so 
that if branch impact is an important consideration for a particular problem, 
then the slope-discontinuity option must be used in place of the branch option, 
thus, identifying this region not as a branch but as a part of the main struc- 
ture. Note, however, that in all cases where three elements are to be connected 
at a single nodal point (such as in the case of a, branch at the midspan of a 
beam), one of the elements must be defined as a branch. In general, at any 
node where three elements are joined, one of these elements (and all subse- 
quent elements in that portion of the structure) must be defined as branch 
elements. However, two branches may not start at the same node of the main 
structure. 

During each increment in time. At, a collision inspection is carried out 
for each element on the main structure for each of the N fragments considered, 
but no collision inspection is carried out for elements defined as branch 
elements. This fact can be used to reduce the total computation time; if the 
user knows a priori that no collisions will occur in certain regions of the 
structure, then those regions should be defined as branches wherever possible 
(note that branches cannot be specified to be attached to another branch). 


It should be noted that complete nodal generalized displacement compat- 
ibility at a junction between a branch and the main structure is contained in 
the program logic regardless of whether the main structure and the branch are 
composed of the same or different materials. In the latter case this leads 
to results at and near the junction which are somewhat inconsistent physically 

improved results could be e:!^ected if one were to require nodal compatibility 

3v w 

only for v, w, and ip (rather than for v, w, ip, and X where x = + '^) • 

As noted in Section 2, the positive r) direction must be chosen in such a 
way that the outward normal for each element is directed toward the outside 
of the structure, where the fragments are considered to be in the inside of 
the structure. In some special (but plausible) cases, the outside region of 
a portion of' the structure may overlap with the inside region of another por- 
tion of the structure either in the initial structural configuration or after 
some deformation of the structure has occurred. Within the current collision 
inspection program logic, such overlapping regions cannot be accommodated. 
Consider the following initial structural configuration: 



With the positive normal directions N as shown (and considering the entire 
structure as a main structure, using the slope-discontinuity option) , the 
outside regions of segments 1-2 and 3-4 would overlap with the inside region 
of segment 2-3. To accoirmodate such a configuration, segments 1-2 and 3-4 
must be defined as branches so that no collision inspection is performed for 
those segments. Consider now the following initial structural configuration: 


85 



For the initial configuration (solid lines), no inside-outside overlapping 
occurs. However, after deformation of segment 2-3 (dashed line, assuming 
fragment impact is as depicted above) , the outside regions of segments 1-2 
and 3-4 will overlap with the inside region of segment 2-3. Again, in this 
case, segments 1-2 and 3-4 must be defined as branches. 

5.3.3 Impact at or Near a Constrained Node 

In the present CIVM-JET 5B program, the case of fragment impact on or 

V 

near a constrained node is handled in an approximate fashion. The nature of 
this approximation is discussed briefly here as a guide to the user in inter- 
preting results when impact occurs on or near a constrained node. 

The assumption used is as follows; when impact occurs near a constrained 
node, the only nodes which can respond with impact- induced velocity changes 
are those nodes which lie within the impact-affected region and which are 
located on the impacted side of the constrained node. In essence, no impact- 
induced information is allowed to propagate past the constrained node (for the 
purpose of impact corrections) , and a portion of the impact-induced impulse is 
"absorbed" by the constraint. Although no impact- induced information is allowed 
to propagate past the constrained node for the purpose of impact-induced velo- 
city, the impact- induced information will filter through the constrained node 
in the global timewise solution if the constrained node is smoothly hinged. 
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If the node is ideally clamped, no impact- induced information will filter past 
the constrained node in the global timewise solution. It should also be noted 
that as the point of ring- fragment impact approaches the constrained node, the 
impact-induced ring response approaches zero; when impact occurs directly on 
a constrained node, the fragment simply rebounds and no impact-induced struc- 
tural response occurs. 

For a more thorough discussion of this topic, the reader is referred to 
Appendix B. 

5.3.4 Comments on Space Mesh Sizing 

In the present CIVM-JET 5B program, considerable flexibility is given to 

the user in terms of defining the size and number of elements to be used for 

a particular structural geometry. However, certain guidelines should be 

followed in the selection of a finite-element mesh for the present impact 

analysis. It is recommended that a uniform mesh be employed for all analyses, 

the only exception being in regions where structural detail dictates the use 

of nonuniform elements. Clearly this recommendation is justified for the 

general case where the point of initial (and subsequent) impact is not known 

a priori. Now consider the special (limiting) case where it is known a priori 

that all ring- fragment impacts will occur at (approximately) the same point on 

the structure (e.g. initially straight, uniform thickness, doiibly clamped beam 

with the only nonzero component of the fragment velocity being normal to the 

beam midsurface, and initial impact occurring at the midspan of the beam) . A 

uniform mesh is again recommended for this special case, based on the following 
considerations. One estimate* of the impact-affected length, L is 

I jg 6XX 

Leff = \J— At; when using the central difference operator, the allowable time 

step. At, is inversely related to the highest natural frequency, U3 , of 

max 

the assembled structure. If the element size in the region of impact is 

decreased, then o) is increased and At and, thus, L are decreased. In 
max eff 

the limit, as the element size is decreased, the impact-induced "loading" 
will become concentrated at -the point of impact and unreasonably high strain 
predictions may be fovind near this region of concentrated loading. It is 
believed (based on ejq)erience to date with the present CIVM-JET 5B program) 
that the choice of a uniform mesh for this case will yield the most reliable 
predictions. 

Basically, however, L^ff/ must be independent of At since various At sizes 
are permissible with different finite-difference time operators. From con- 
siderations of through-the-thickness stress wave propagation and accompanying 
imparted particle velocities, one might estimate = nh where h is the 

total wall thickness and n is some number typically 2 < n < 4. 

... ^ ^ 
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SECTION 6 


COMPLETE FORTRAN IV LISTINGS OF THE PROGRAMS 

6.1 Subroutines Common to both JET 5A and CIVM-tJET 5B 
These fourteen (14) s\abroutines consist of: 


ASSEF 

MINV 

ASSEM 

0MULT 

BRAN 

QREM 

ELMPP 

R0TAT 

ERC 

S0LV 

FAC 

STRESS 

IDENT 

TSTEP 


and are listed in the following: 


StJBSOUTINE ASSEF (IK, IK, ELFP, FLVA, ICP) 
IMPLICIT REAL*8 (A-H,0-Z) 

DIMENSION NN (8) ,FLVA (1) ,ELFP (1) 

COMMON /BE/ NVEC(51,2), L8T(51) 

J1 = NVEC (IR, 1) »'4 
NN(1)^J1-3 
NN(2)=J1-2 
NN(3)=J1-1 
NN(4)=J1 

IF (ICP.LE.O) GO- TO 121 
IF(IE-IK) 121, 122,122 
121 J2 = NVEC(IR,2)*4 
NN(5)=J2“3 
NN(6)=J2-2 
NN(7)=J2-1 
NN (8)=J2 
GO TO 123 

122 NN{5)^1 

NN (6) =2 ■ 

NN(7)-3 
NN (8) =4 

123 DO 101 1=1,8 
M=NN (I) 

FLVA (M) =FLVA (M) +ELfP (I) 

101 CONTINUE 
RETURN 

end 


ASSF0010 I 

ASSF0020 

ASSF0030 

ASSF0040 i 

ASSF0050 

ASSF0060 

ASSF0070 

ASSF0080 

ASSF0090 

ASSF0100 

ASSF0110 

ASSF0120 k 

AS3F0130 

ASSF0140 

ASSF0150 

ASSF0160 

AS3F0170 - J 

ASSF0180 

ASSF0190 

ASSF0200 : 

ASSF0210 ' 

ASSF0220 

ASSF0230 

ASSF0240 

ASSF0250 

AS SF 02 60 . 

ASSF0270 


SUBRODTINE ASSEM (IR , IKj,ELMA S , STIPM , ICP,INUM) 
IMPLICIT BEAL + 8 (A-H,0-Z) 

DIMENSION ElBAS (8,8) , NN (8) ,STIFM(1) ,INUH{1) 
COMMON /BR/ NVEC(51,2), LHT(51) 

J1 = NVEC(IR,1)*4 
NN( 1) =Jl-3 
NN (2) -Jl-2 
NN(3) -J1-1 
NN (4) =J1 

IF(ICP. LE.O) GO TO 203 
IF(IR-IK) 203,204,204 
203 J2 = NVEC (IR,2) *4 
NN (5) =J2-3 
NN (6) ^J2“2 
NN(7)=J2-1 
NN(8)=J2 
GO TO 202 
204 NN(5)=1 

NN (6)=2 
NN (7) =3 
NN (8)=4 

202 DO 402 1=1,8 
M=NN (I) 

• DO 402 J=1,8 
N=NN ( J) 

IF (M-N) 402,403, 403 
403 L=N+INUM(M) 

STIFH(L)=STIFM(L)+ELHAS (I,J) 

402 CONTINUE 
RETURN 
END 


ASSM0010 

ASSM0020 

ASSM0030 

ASSM0040 

ASSM0050 

ASSM0060 

ASSM0070 

ASSM0080 

ASSH0090 

ASSM0100 

ASSM011G 

ASSM0120 

ASSM0130 

ASSM0140 

ASSH0150 

ASSH0160 

ASSH0170 

ASSW0180 

ASSM0190 

ASSM0200 

ASSM0210 

ASSH0220 

ASSH0230 

ASSB0240 

ASSM0250 

ASSM0260 

ASSH0270 

ASSM0280 

ASSH0290 

ASSM0300 

ASSM0310 


© 

"is '■-> 


- 

f 

f-j 




a.. 

tii 

port 

< O) 


o 

( 




PF POOR quality. 


lO 


"O 

Q 

m 


CO 


SOBPOUTINB BRAN{NBfi , DENS, EPS ,SI(? ,B) 

IMPLICIT REAL*8 (A-H,D-Z) 

DIMENSION SLB(5) 

DIME NSION DENS (3 , 6 ) ,8 (6) , EPS ( 3, 5, 6) , SIG(3,5,6) 

DIMENSION IBB (7) , ZK (51) ,HK (51,3) ,ANGK(51) ,LATT (6) ,LHIT(6) 
DIMENSION YB (5,1 1) ,Z3 (5, 11) ,ANB(5, 11) , HB (5, 1 1 ) ,N ELT (6) 

COMMON /FG/ IK,IKK,ICP,LEFF, NOGA,NFL,NI,ICOL (205) ,IN0M(205) 

♦ ,NBCOND,NBC(7) ,NODEB{7) , KRON ( 8) , NDEX (8) , NIRBEG 

COMMON /TAPE/ M RE AD, M WR ITE, MP UNCH 
COMMON /THI/ HTH(5) 

COMHON/MAT/TOONG (3,6» ,DS(3,6) ,SNO(3,5,6) ,NSFL(3,6),P (3,6),NLAT 
COMMON/FC/ Y(51) , Z (5 1 ) , ANG (51 ) , H (51 ,3) 

COMMON/BOaN/YK(5 1) , NBCOHB, NBCB (7) , NOD BB (7) , HK (51 ) ,ROT (5,2) 

* ,XDIST (6) , DEOT (5 0) ,NODP (6) 

COMMON /ML/ MNEL(6) ,MATT(6) 

COMHOH/DIS/ ANGDI(50) ,NEDI (50) ,HD1S 
COMMON /BR/ NVEC(51,2), LMT(51) 

COMMON /TAM/ MKE(51) 

C RENUMBER NODES AND ELEMENTS 

EXANG= 360.0 
IF(ICP.LE. 0) EXAHG= 0.0 
NS = IKK 
NNS = NS 
NIK = IK 

PIE= 3 .141592653589793 D*00 
DO 5301 3 - 1,6 
NELT (J) = 0 

530 1 NODP (J) = 0 

DO 5302 K = 1, NS 
YK(K)= Y (K) 

ZK(K) = Z(K) 

DO 5303 L=1,NLAY 
5303 HK(K,L) = H(K,L) 

5302 ANGK(K)= ANG (K) 

DO 5 313 I = 1,NBB 
IB = 1+1 


BRAN 00 10 
BRAN0020 
B9 AN 00 30 
BRAN00 40 
BBAN0050 
BRAND 0 60 
BRAN0070 
BRA NO 0 80 
BRAN0090 
BRAND 100 
BRAN01 10 
BR AN0120 
BRAN0130 
BS AMO 140 
BRAN01 50 
BRAND 160 
BRAN0170 
BRAN0180 
BRAN0190 
BRAN0200 
BR AN0210 
BRAM0220 
BRAN0230 
BRAN02 40 
BRAN02 50 
BRAND 260 
BHAN0270 
£R AN0280 
BRAM0290 
BR AM 0300 
BRAN0310 
BR AN 03 20 
BRAM03 3 0 
BRAND 3 40 
BRAN0350 
BRAN0360 


READ (WREAD, 5500) NSFL (1 , IB) ,B (IB) ,DENS(1 ,IB) , DS(1,IB) ,P 
5500 FORHAT (I5,4D15. 6) 

L= NSPI,(1,IB) 

READ {HREAD,5510) (EPS(1, J,TB) ,SIG (1,J,IB) ,J=1,L) 

5510 F0R?1AT(4D15.6) 

READ (MREAD,530C) NEL T (I) , NODP (I) ,LHI T (I ) ,L ATT (T ) 

5300 F0RRAT(14I5) 

MNEL(I+1) = NELT(I) 

NODPH= RODP(I) 

XF (LATTd)) 6010,6015,6020 
5010 IP (LREF-2) 601 1,60 12,60 13 

6011 XDIST(I)= (NODPH,1) /2.0 
GOTO 6 00 1 

6012 XDIST(I)= (H(KODPH,1 ) i-H (NODPt!,2)/2 . 0 ) 

GOTO 600 1 

6013 XDIST(I)= (H (NODPK, 1) fH (NODPH,2) +H (NODPH,3)/2-0) 

GOTO 600 1 

6015 IP{LREF-2) 6 016,6017, 6018 

6016 XDIST (I)=- (H (NODP8,1)/2. 0 + H(NODPH,2) ♦ H(HODPH,3)) 

GOTO 600 1 

60 17 XDI5T (!)=-( H(NOEPH,2) /2 . 0 + H(NODPH,3)) 

GOTO 6 001 

6018 XDIST(I) =-H(NODPH,3) /2.0 
GOTO 600 1 

6020 IF (LREF.NE.LATT(I) ) GO TO 6025 
XDIST (I) = 0.0 

GOTO 6001 

6025 LEA= LATT (I) -LREF 
L SIG N=-1 

IF (LRA. LT.O) LSIGN= 1 
LRAA = TABS (LRA) 

NMNN= LATT (I) 

IF(LRAA.EQ.2) GO TO 6030 

XDIST (I) = ( (H (NOCPH, LR EF) +H (NODPH , NNNN) ) /2 . 0) *LSIGN 
GOTO 600 1 • 

6030 XDIST(I) = { (El (NODPn,L8 EF) +H (NODPH ,MNNN ) ) /2 . 0+H (NODPH,LEAA) ) *LSIGM 


BRAM0370 
BRAN0380 
BR AN 0390 
BRAN0400 
BR AN0410 
BRAN0420 
BR AM 0430 
BRAM04 40 
BRAN0450 
BRAN0460 
BRAN0470 
BRAN0480 
BRAN04 90 
BR AN0500 
BRAM0510 
BR AM0520 
BRAN0530 
BRAM0540 
BRAM0550 
BRAN0560 
BRA NOS 70 
BRAN0580 
BRAN 0590 
BRAN06 00 
BR AN 06 10 
BRA NO 6 20 
BRAN 06 30 
BRAN0640 
BRAN0650 
BRAN066!) 
BRAN0670 
BRAN 06 80 
BRAN0690 
BRAN 07 00 
BRAN0710 
BRAN 07 20 


6001 CONTINUE 

N01 = NELT{I) + 1 
DO 5310 J = 1,K01 

HEAD («PEAD,530 5) YB (I , J) ,ZB(I,J) , ANB(I, J) , HB (I, j) 

5305 POEMAT(4D15.6) 

ANB(I,J) = ANB (I, J) ■> PI E/1 80.0 

5310 CONTINUE 
HTH (I) = HB (I,N01) 

SLB(I) = ANB (I, N0 1) 

NS=NS + NELT (I) 

IK= IK+NELT(I) 

IKK= NS 

5313 CONTINUE 

DO 5 200 K=1,NS 
HK (K) = 0 
5200 LMT(K) = 0 

DO 5270 I=NIK,IK 
5 27 0 MKE(I) = 1 

WRITE (MWRITE,53-1 1) 

5311 FORMAT {• OTHEHE ARE 
WRITE ( MW RITE, 5312) 

5312 FORM AT(* OTHSEE AES 
WRITE (flWRITE , 8500) 

8 500 FORMAT (* OTHS GLOBAL SLOPE (RAD) 

WRITE (MWHITE,5250) NBB 

5250 PORMAT(»0THE ATTACHMENT POINT CODE FOR THE BRANCHES IS 

a FOLLOWS : • ) 

WRITE(MWRITE,526 0) (LATT (L) ,L = 1 ,NBR) 

5260 FORMAT (* ’,518) 

WRITE(MWFJ:TE,526 1) 

5261 FORMAT (* WHERE -1= INNER AND 0 = OUTER SURFACES. 1,2,3 INDICATE 
aiDSORFACE OF CORRESPONDING LAYER.*) 

NODP(NBR+1) = NNS 
NELTT= 0 

DO 5316 J= 1,NBR 
NELTT=NELTT+ NELT (I) 


IK, NS 

',13,* ELEMENTS AND 
NBE, (NODP(M) ,a=1,NBR) 
*,I3,* BRANCHES AND THEY 
(SLB (K) ,K = 1,NBE) 

AT EACH BRANCH 


,13,* NODES*) 

ARE AT NODES*, 516) 
CONNECTION:*, 5 D15. 


BRAND? 30 
BRAN07 40 
BRAN 07 50 
BEAN0760 
BR AN 07 70 
BRAN0780 
BR AN 07 90 
BRAN0800 
BRAN0810 
BRANO0 2O 
BRAN0R30 
BRAN0840 
BRAN0850 
BRANDS 60 
BRAN0870 
BR AN0880 
BRAN0890 
BRAN0900 
BRAN09 10 
BRAN0920 
BRAN0930 
BRAN 09 40 
BRAN 0950 
6) BRAN 09 60 
BRAN0970 
ASBRAN0980 
BRAN0990 
BRAN 1000 
BRAN1010 
BRAN 1020 
MBRAN1930 
BRAN 1040 
BEAN1050 
BR AN10 60 
BRAN1070 
BRAN1080 
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N01 = NODP(I) *■ 1 

BBAN1090 


NOD=NODP (1+1) 

BRAN 1100 


DO 5315 J = N0 1, HOD 

BRA Nil 10 


KN= J+NELTT 

BRAN1120 


Y(KN) = YK(J) 

BBAN11 30 


Z (KN)= ZK(J) 

BEAN11 40 


DO 5 40 1 L=1,NLAY 

BRAN 11 50 

5401 

H (KN,L) = HK(J,L) 

BRAN1160 


ANG(KN) = ANGK(J) 

BR AN 1170 


MK(J) = KN 

BRAN1180 

5315 

CONTINUE 

BRAN 1190 

5316 

CONTINUE 

BRAN1200 


IF(NODP( 1) .NE.1) GOTO 5320 

BRAN1210 


KN= 1 + NELT(1) 

BRAN 12 20 


Y (KN) = YK (1) 

BRAN1230 


Z (KN ) = ZK (1 ) 

BRAN1240 


DO 5410 L=1 , NLAY 

BRAN1250 

5410 

H(KN,D = HK(1,L) 

BRAN 1260 


ANG(KN) = ANGK(1) 

BRAN1270 


HK{1) = KN 

BR AN 1280 


NET, = HELT(1) 

BRAN1290 


DO 5325 1= 1,NEL 

BRAN1300 


Y(T)= YB(1,I) 

BRAN1310 


Z (I) = ZB(1,I) 

BRAN1320 


ANG(I) = ANB(1,I) 

BR AN 13 30 


H(I,1) = HB(1,I) 

BRAH1340 


IP (NEAY. EQ,1) GO TO 5325 

BRAN 1350 


DO 6455 MT=2,NLAY 

BRAN1360 

6455 

H ( I,MT) =0.0 

BR AN 1370 

5325 

CONTINUE 

BRAN1380 


GOTO 5 322 

BRAN1390 

5320 

NOl= NODP(1) 

BRAN1400 


DO 5321 J = 1,NOl 

BRAN1410 

5321 

MK(J) = J 

BRAN 14 20 

5322 

NELTT=0 

BRAN1430 


DO 5330 1= 1,NBR 

BR AN 1440 


LO tr, 


IF {NOBP(T).EQ, 1) GOTO 5334 
NEL = NELT{I) 

DO 5335 1,NEL 

KN= J+ NODP(I) + NELTT 

I(KN) = YB(I, J) 

Z(KN) =ZB(I,J) 

AUG(KN) = ANB(I, J) 

H {KN,1 ) = HB (I,J) 

IF (NLAY. EQ. 1) GO TO 5335 
DO 6450 MT=2,NLAY 
6450 H(KN,WT) =0.0 
5335 CONTINUE 

5334 NELTT= NELTT + NELT(I) 

5330 CONTINUE 
NZB = 0 
NYB = 0 
LTIHE= 0 
LELT = 1 

DO 5 100 J = 1,NS 
NXB = J + NYB 

IF ( NXB. EQ.MK{J) ) GO TO 5100 
MKL = 0 

LTIME= LTIME+1 

MXX = NXB-2 

NYB= NYB+ NELT(LTIME) 

IF (LEITT{LTIMK) . NE.O) GO TO 5140 
NZB = NZ B+NELT{LTIME) 

IF(J.EQ, 1) axx=o 
HKL=NKL+HXX 
DO 5130 1= LELT, NZB 
MKL=MKL4-1 
5130 LMT (I) = MKL 
LELT = NZB+1 

140 IF (LTIME. SQ.N3R) GOTO 51 45 

100 continue 

5145 CONTINUE 


BRAN1450 
BRAN1460 
BRAN1470 
BRAN1480 
BRAN 1490 
BRAN1500 
BH AH 15 10 
BBAN1520 
BR AN 15 30 
BRAN1540 
BR AN 1550 
BRA N1 5 60 
BRAN1570 
BEAN1580 
BRAN1590 
BR AH 1600 
BRAN1610 
BRAN 16 20 
BRAN16 30 
BRAN1640 
BEAN1650 
BBAN1660 
BR AN 1670 
BRAN1680 
BRAN 1690 
BRAN17 00 
BRAN 17 10 
BRAN1720 
BRAN 17 30 
BE AN 17 40 
BRAN1750 
BRAN 1760 
BRAH1770 
BE AH 17 80 
BRAN1790 
BR AN 18 00 
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LELT-0 

NYB=0 

LTI«E = 0 

DO 5275 J= 1,NS 

NXB= J+NYB 

IF {fJXB.EQ. HK(J) ) SO TO 5275 
LTIHE=LTIME+1 
MXX = NXB-2 
NyB=N?B+NELT(LTinE) 

IF(J,SQ. 1) !1XX=0 
LELT = MXX +1 

NZB= HXX+NEIT(LTIME) 

DO 5 280 1=LELT,NZB 
5280 «KE(I) = LTIME+1 

IF (LTIHE.EQ. NBR) GO TO 528 5 
5275 CONTINUE 
5 28 5 CONTINUE 

NODP (NBR+1) = IK 

NT= NELT{1) + N0DP(2)+ NELT(2) -1 
NTT= NELT(I) + NELT{2) 

IF (NBE.EQ. 1) NT = IK 
IP (NODP (1) .EQ. 1) GO TO 5340 
NT= NODP(1)+ NELT(1) - 1 
NTT= NKIT(1) 

5340 DO 5345 1= 1 ,NT 
NVEC (I ,1 ) = I 
5345 NVEC (I ,2) = 1 + 1 
NO = 2 

IF(NODP{1) - 1) 5350, 5355,5350 
5355 IF(NBE.EQ, 1) GO TO 5350 
NO= 3 

5350 NB1 = NBF+1 

DO 5360 T = NO, RBI 
IF (NT.EQ.IK) GO TO 5400 
MT= NT+1 

NVEC (NT, 1) = NT-NELT(I-I) 


BRAN18 10 

BRAN1820 

BRAN 18 30 

BBAN1840 

BR AN 18 50 

BRAN1860 

BRAN 1870 

BRAN1880 

BRAN1890 

BRAN1900 

BRAN1910 

BRAN 19 20 

BRAN1930 

BR AN 19 40 

BRAN1950 

BRAN1960 

BRAN1970 

BRAN1980 

BRAN 1990 

BRA N2 000 

BR AN 20 10 

BRAH2020 

BR AN 20 30 

BRAN2040 

BRAN2050 

BRAN2060 

BRAN2070 

BRAN2080 

BRAN2090 

BR AN 2100 

BRAN21 10 

BR AN2120 

BRAN2130 

BRAN21 40 

BRAN2150 

BRAN21 60 


NVEC{NT,.2)= NT4-1 

NT = NT+1 

NTT= NTT 4- NELT(I) 

NOO •= NTT+ NODP(I) -1 
IF (NODP(I) .SQ.IK) N30=IK 
DO 536*^ J=NT,NOO 
NVEC (J,1) = J 
5365 NVEC (J,2) = J+ 1 
NT = NOO 
5360 CONTINUE 
5400 CONTINUE 

IF (EXANG .EQ.360. 0) NVEC(IK,2) = 1 
WRITE {MNRIT.E, 110) 

110 FORHAT(//,’ PRESENT EL EH. NO . • ,5 X, • NODE1 * ,5X , • NODE 2* , 5X, ' 
SORE* ,5X, 'SUBST. ELEH. NO.*) 

JEL = 0 

DO 115 IR=1,IK 

IF {HKS (IR) .NE. 1) ■ GO TO 120 

JL=0 

JSL= JEL+ 1 
JE LR = JEL 
GO TO 125 
120 JL=JL+1 
JELS=JL 

125 WRI-^E {HWRITE,126) IE,NVEC(IR, 1) , N VEC {IE, 2) , M KE (IE) ,JELE 

126 FORHATC ' , 4X, I5 , 1 1 X, 15 , 5X,I5 ,7 X , 15 , 1 3X , 15) 

115 CONTINUE 

WEITE(HWRITE,130) 

130 FORMAT (* OT HE UPDATED NODE MUHBERS FOR THE MAIN STRUCTURE, 
S THEIR ORIGINAL NUMBERING ORDER;*) 

WRITE (MWRITE,5323) ( MK (L) ,I.= 1 , NNS) 

5323 FORMAT (' 0* ,2515) 

WRITE (MW RITE, 1010) 

1010 FORMAT(//, * NOTE: THE ELEMENT NUMBERS REFERRED TO BELOW 

SNT ELEMENT NUMBERS*,//) 


BRAN2170 
BRAN2180 
BR AN 2190 
BRAN22 00 
BR AN 22 10 
BRAN2220 
BRAN2230 
BRAN2240 
BRAN2250 
BRAN 22 60 
BBAN2270 
,BR AH 22 80 
BRAN2290 
SUBST RUCTBRAN2300 
BRAN2310 
BRAN 23 20 
BRAN2330 
BEAN2340 
BRAN2350 
BRAN2360 
BE AN 2 3 70 
BEAN23 80 
BR AN 2390 
BRAH2400 
BR AN 24 10 
BRAN2420 
BRAN2430 
BRAN2440 
BRAN2450 
GIVEN INBRAN2460 
BR AN 2 470 
BRAN2480 
BR AN24 90 
BRAN2500 
ARE PRSSEBEAN2510 
BEAN2520 


20 

EES 

tj s 
D 2 

^ S 

^ r“ 
O 3 
pi 


< U) 


WRITE (« WRITE, 2 110) 
WRITE (?1WRITE,2100) 


00 


2100 

2110 


8103 

a 101 
81 00 


c 

c 


5375 


53 71 
5 370 
53 76 


POEHATC 


1015) 


(LMT (N) ,N=1,HS) 

IMPACTED: ») 


81 02 


PORMAT (• OELE HENTS THAT CAW NOT 3E 
RBAD(MREAD,5300) N DIS B 
IP (NDISB.EQ. 0) 0 0 TO 8100 
DO 9101 I=1,NDISB 

READ (MREAD,3102) NEDIB ,NBDI, ANGDB 
PORMAT (2I5,D15.6) 

ANGDB= ANGDB*PIE/1 80. 0 
SDIS= NDIS + 1 
AMGDI(NDIS) = ANGDB 
L= NODP(NBDI) 

K=MK (L) 

IF(L.EQ. 1) K = 1 
NEDI(NDIS) = NEDIB +E -1 
CONTINUE 
CONTINUE 

ESTABLISH BOUNDARY CONDITIONS 
7ECTOR YK(51) NOW CONTAINS ACTUAL 
READ(MRBAD,5 300) NBCONB 
IP (NBCONB.EQ.O) GOTO 537 6 

READ (MPSAD, 5300) (NBC8 (L) ,NODBB (L) ,LBR (L) ,L=1 , NBCONB) 
DO 5370 L = 1, NBCONB 
NNNN= LSE(L) 

N0 1= NODP(NNNN) 

NELTT= 0 
LB= LBR (L)-1 
DO 5375 J= 1,LB 
NELTT= NELTT + NELT(J) 

IP (LB.NE.O) GOTO 5371 
NELTT = 0 

IF {NODP (1) .EQ. 1) GO TO 5370 
NODBB(L) = NODBB(L) + NOI NELTT 
CONTINUE 
CONTI NUE 


NODE NUMBER OP ORIGINAL 


BR AN 25 30 
BRAN2540 
BRAN2550 
BRAN2560 
BRAN 25 70 
BRAN2580 
BEAN2590 
BRAN2600 
BRAN2610 
BRAN2620 
BRAN2630 
BR AN 26 40 
BRAN2650 
BB AN 26 60 
BRAN2670 
BRAN2680 
BR A N26 90 
BRAN2700 
BRAN2710 
DEPLECTOBEAN2720 
BR AN 27 30 
BRA N2 740 
BR AN 27 50 
BRAN2760 
BRAN 2770 
BRAN2780 
BRAN2790 
BRAN2800 
BRAN2810 
BR AN 28 20 
BRAN2830 
BR AN 28 40 
BRAN2850 
BRAN2860 
BRAN2870 
BRAN2880 



C DET.ERfllNE LEADING NON ZERO TERM IN EACH ROW 

DO 15 1= 1,8 

15 ICOL(I) = 1 
IKM1 = IK-1 
NI = NS* 4 

IF {EXANG.NE. 360. 0) GO TO 210 
DO 16 I = 2,IKM1 
J= (I'M) »4 

ICOL(J) =NVEC(I,1| “4-3 
ICOL(J-I) = NVEC(I,1) * 4 - 3 
ICOL(J-2) = NVEC(I,1) *4-3 
ICOL(J-3) = NVEC(I,1) ♦ 4 - 3 

16 CONTINUE 

ICOL(IK“4) = 1 

ICOL(IK*4-1) = 1 

ICOL(IK*4-2) = 1 

ICOL(IK*4-3) = 1 

GO TO 218 

210 DO 211 1= 2, IK ■ 

J= (1+ 1) *4 

ICOL(J) = NVEC(I,1) *4-3 
ICOL(J-I) = HVEC(I,1) *4-3 
ICOL(J-2) = NVEC(I,1) * 4 - 3 
ICOL (J-3) = NVEC(I,1) * 4 - 3 

211 CONTINUE 
218 CONTINUE 

DO 5341 M= 1,IK 
5341 IK(M) = 0.0 

DO 5342 H = 1,NB8 

IF (NODP (M) .NE. 1) GO TO 53 43 

NNNN= NELT(H) 

YK(NNNN) =1.0 
ROT (M, 1} =0.0 
MKS = NELT(M) + 1 
ROT{B,2) = ANB(«,MKS) - ANGK(1) 

GO TO 5342 



BR AN 2890 

BRAN2900 

BRAN2910 

BRAN2920 

BRAS2930 

BRAN2940 

BRAH2950 

BRAN 29 60 

BRAN2970 

BR AN 29 80 

BRAN2990 

BRAN3000 

BRAN30 10 

BRAN3020 

BRAN 30 30 

BRAN3040 

BR AN 30 50 

BRAN3060 

BR AN 30 70 

BRAN3080 

BR AN 3090 

BRAN3100 

BRAN31 1 0 

BRAN3120 

BRAN3130 

BRAN3140 

BRAN31 50 

BRAN3160 

BRAN3170 

BR AN3180 

BRAN3190 

BR AN 3200 

BRAN3210 

BRA N3220 

BRAN3230 

BRAN32 40 





•=»5 — 




100 


5343 N= N0DP{H) 

NM= !1K (N) 

YK (NM) = 1 ,0 
ROT(M,1) =1.0 
MKS = NELT{H) + 1 
EO?(M,2) = ANB(«,MKS) - ANG(N«) 
5342 CONTINOE 
RETURN 
END 


BRAN 32 50 
BRAN3260 
BRAN3270 
BRAN3280 
BRAN3290 
BH AN 33 00 
BRA N3 3 10 
BR AN 3320 
BRAN3330 


SOBBOUTINE ELMPP ( A MASS , STIFK , ISTZE, A EP, DEP, N VI , R.HAGK, BEACH, ELMP 
C TO FIND THE MASS MATRIX STIFFNESS MATRIX AND STRAIN NODAL 

C DISPLACEMENT TRANSFORMATION MATRICES 

IMPLICIT REALMS (A-H,C-Z) 

REACK (1) ,REACM (1) 

AEP(NV1,3,8) ,DEP(N VI ,2,3,8) 

AE1(3,8) , DUMMY (8) ,BX(2) 

TR{4,4) ,TRAN(8,8) 

A (8, 8) ,LMI (8) ,MMI (8) ,D (8,8) ,ELM (8,8) , 


O 


18 

50 


DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 


♦ELMAS (8,8) , AMASS (1) ,E (8,8) ,EK1 (8, 8) ,ELK (8,8) ,STlPK (1) , 

*BE1 (3, 3,8) ,BNG (51) 

=^,D1 (3,8) ,D2{3,3) ,D3(3,8) ,D4{8,8) ,E1 (2,8) ,E2(2,2) ,E3(2,8) ,E4 (3,8) 
CGMMCN/MAT/YODNG (3,6) , DS (3,6) ,SNO (3,5,6) ,NSFL (3,6) ,P(3,6) ,NLAY 
COMMON /FG/ IK,IKK,ICP,LREF,NCGA,NFL,NI,ICOL (205) , T.NDM(205) 
*^.BBCOND,NBC (7) ,NODEB(7) , KROW(8) ,NDEX(8) ,NIRREG 
COMMON/FC/ Y (51) ,Z (51) ,ANG (51) ,H(51,3) 

COMMON/BA/ BEP(50,3,3,8) ,AL(50) , AXG ( 3) , AHG(3) ,HET (50,3) , 

»CE1 (50,3) ,CE2 (50,3) ,CE3(50,3) ,CM1 (50,3) ,CM2 (50,3) ,CH3 (5C,3) 
COMMON /TAPE/ MREAD, MWRITE, MPUNCH 
COMHON/ADSP/ AZ ET (50) , ASP (50 ) ,YSP(50) ,ZSP(5C) ,LKK(50,11) 
C0MKCN/B0DN/YK(51) ,NBCONB,NBCB (7) ,N0DBB(7) ,HK (51) ,RCT (5,2) 
♦,XDIST(6) ,DROT(5C) ,N0DP(6) 

COMMON /BR/ NVEC(51,2), LMT(51) 

COMMON /TAM/ MKE(51) 

SIN (Q) =DSIN(Q) 

COS (Q) =DCOS(Q) 

ATAN (Q) =DATAN (Q) 

SQRT (Q) =DSQP.T(Q) 

DO 18 L=1,ISIZE 
STIFK(L)=0.0 
AMASS(L)=0.0 
DO 101 IR=1,IK 
K1 = NVEC(IR,1) 

K2 = NVEC(IR,2) 

L= HKE(IR) -1 
P5=Z (K2)-Z (K1) 


B) ELHP^O I'' 
ELMP002P 
ELMP^'OBO 
ELHP0040 
ELMP00 5'> 
SLMP0060 
ELMP0070 
ELMPG080 
ELMP0090 
FLMP0100 
ELMPOin 
ELMP0120 
ELMP0130 
ELMP0140 
ELMP0150 
ELMP0160 
ELMP0170 
ELMPniSO 
ELHP01 90 
ELMP0200 
EL MP 02 10 
ELMP0220 
ELHP0230 
ELMP0249 
ELMP0250 
ELMP026O 
ELMP02TO 
ELMP028'^ 
ELMP0290 
ELHP0300 
ELMP0310 
ELMP0320 
ELMP0330 
ELMP0340 
ELMP0350 
SLMP0360 


P6 = Y (K2) -Y (K1) 

P7=ANG(K2 )-ANG(Kl) 

IF (YK (IE) . EQ. 1. 0) P7=ANG (K2) - SOT (L, 2) - ANG (K 1) 

IF(YK(IR) . EQ.1 . 0. AND.ROT (L , 1 ) . FQ.0.0) P7=EOT (L,2) +ANG (K2) -ANG (K1) 
IF (YK(IR) .EQ.2.0) P7= ANG (K2) - DROT(IR) - ANG(Kl) 

IF(YK(IR) .FQ.3.0) P7= ROT (L ,2) +AHG (K2) -DROT (IE) - AHG (K1) 

PIE= 3.1415926535897931+00 
PIE2= 2.0+PIE 
PIE32= 1.5 *PIE 
ANG2=ANG (K2) 

ANG1=ANG (K1) 

IF (YK(TR) ,EQ. 1. 0 . AND. ROT (L,1) , HQ.O.O)' ANG (K2) =ROT (L,2) +ANG(K2) 

I? (YR (IR) .EQ.1. 0. AND.ROT (L , 1 ) .EQ. 1 . 0) A MG (K1) =HOT (L ,2) +ANG (K1) 
IF (YK(IR) .EQ.2.0) ANG(K1)= DRGT(IR) + ANG(KI) 

IF (YK(IS) .EQ.3.0) ANG(K1)= DHOT (IP.) + ASIG(KI) 

IF(YK(IR) . EQ. 3.0) ANG(K2)= HOT (L , 2) +AMG (K2) 

APHA = PIE / 2.0 

IF (P5.LT.0.0) APHA= “APHA 

IF (P6 .NE.0.0) APHA= ATAN (P5/P6) 

IF(P6.LT.0.0. AND.P5.lt. 0.0) A PHA=A PHA-PIE 
IF(P6.LT. O.G .AND. P5.GE.0.0) APHA=APHA+PIF 
IF(P7 .EQ. C.O) GO TO 60 

AL (IR)=P7*SQET (P5+*2+P6»»2) /SIN ( P7/2 . ) /2. 

IF (P7.GT.PIE32) AL (IE)= (P7-PIE2) *SQPT (P5Y*2+P6^*2) /SIN (P7/2.-PIE) 
V2.0 

IF (P7.LT . (-PIE32 ) ) AL (IR) = (P7+PIE2 ) ^SQRT (P5**2+P6**2) 

+/SIN (P7/2. +PIE )/2. 

GO TO 61 

AL (IE) =SQRT (P5**2+P6=*^*2) 

BNG (IR+1) =ANG (K2 ) 

BNG (IR) =ANG (K1) 

IF (P7. GT. (PIE32 ), AND. APHA . LT. 0 . 0) BNG (IR + 1) =ANG (K2) -PIE2 
IF (P7.GT. (PIE32 ) .AND. APHA . GT. C . 0) BNG (IR) =A NG (K 1 ) +PIE2 
IF (P7. LT. (-PTE32 ) . AND. A PH A . GT. 0 . 0) BNG (IR+1) =ANG (K2) %'PrE2 
IF(P7.LT . (-PIE32 ). AND . APHA. LT . 0 , 0) BNG (IR) =ANG (Kl) -PIE2 
BZER=BNG (IR) “APHA 


ELnP0370 
EinP03R'' 
ELf1P0390 
SL.MP04 0D 
ELNP0410 
SLMP0420 
SL.'1P04 30 
ELMP0440 
ELMP0450 
ELflP0460 
ELHP0470 
ELMP0480 
ELBP0490 
ELHP0500 
ELHP0510 
ELMP0520 
ELMP0530 
ELHP0540 
ELHP0550 
ELnP0560 
ELHP0570 
ELHP0530 
ELMP0590 
ELHP060O 
ELMPC61? 
ELNP0620 
FLMP06 3^^ 
ELHP0640 
ELKP065D 
ELMP0660 
ELHP^67C 
ELMP0680 
ELKP0690 
ELHP0700 
ELHPOYIO 
ELHPCY20 


B1= (-2. ♦BUG (TR + 1) - 4.»BNG(TR) +6. *A?H&) /AI (IP) 
B2= (3.*BNG (IR + 1) +3.*BRG(IR) -6.*APHA)/AI (IR)=«'*2 
ANG(K2)= ANG2 
ANG (K1) = ANG1 
DO 102 1=1,8 
DO 102 J=1,8 
A (I, J) = 0. 0 
E (I, J)=0.0 
102 D(I,J)=0.0 

A (1,1)= COS (BNG (IR) -APHA) 

A (1,2)= 3TN (BNG (IR) -APHA) 

A (2, 1)=-SIN (BNG (IE) -APHA) 

A(2,2)= COS (BNG (IR) -APHA) 

A (3,3) = 1. 

A (5,1)=COS (BNG (IR+1)-APHA) 

A (5, 2) =SIN (BNG (IR+1) -APHA) 

A (5,3) =P6*SIN (BNG (IR+1) ) -P5^COS (BNG (IE+1) ) 

A (6,1)=-SIN(BNG (IR + 1) -APHA) 

A (6,2)=COS (BNG (IE + 1) -APHA) 

A (6,3)=P6*CCS (BNG (IR+1) ) +P5*SIN (BNG (IR+1) ) 
A(7,3)=1. 

A(4,4)=1. 

A (5, 4) =AL(IR) 

A (5,7) =AL (IR) **2 
A(5,8)=AL(IR)+*3 
A (6,5)=AL (IP)’«=*2 
A (6,6) =AL (IR) * + 3 
P8=Bl+2.*B2>t‘AL (IR) 

A (7,4) =AL (IE) *P8 
A (7,5) =2. *AL (IR) 

A (7,6)=3.^AL(IR) **2 
A(7,7)=AL(IR) ’^♦2*P8 
A (7,8) =AL (IB) =*=*3 + P8 
A (8,4)=1. 

A(8,5)=-AL(IR)**2*P8 
A (8,6) =-AL(IR) **3*P8 


EL»1P07 30 
S1MP7740 
EIHP075D 
ELMP0760 
EL HP 07 70 
ELHP078C 
SLHP079'' 
EL?IP0800 
ELKP-'^eiO 
ELMP0820 
ELMP083^ 
ELflPG840 
ELHP0850 
ELMP0860 
ELHPO870 
ELnPOSSO 
FLnP0890 
ELKP0900 
ELHP0910 
ELHP0920 
ELMPG930 
ELMP0940 
ELHP0950 
ELMP0960 
ELHP0970 
ELBP0980 
ELMPO990 
ELMPIOC'^ 
ELHP1010 
SLHP1020 
ELMP1030 
BLnP1D40 
ELMPI 050 
ELP5P1060 
ELMPI 070 
ELMP1080 


ORIGINAL PAGE IS 
OF POOR QUALITY 


104 


A (8,7) =2. *AL (IE) 

A (8,8)=3,»AL(IR) ^*2 
CALL «IKV(A,8,DET,L«I,MMI) 

DG 103 J=1,NGGA 

WET (IE, J) =AL (IE) ♦AHG (J) 

ZET-AL (IR) ^AXG (J) 

PHIP=B1+2.*B2*ZET 
PHI=BZSR+B1^ZET+B2^ZET^*2 
YZET= 0.0 
ZZET=0.0 

DO 104 JJ=1,NOGA 

P2=8ZES + B1*ZET*AXG (JJ) +82* (ZET*AXG (JJ) ) *'*2 + APHA 
YZET=YZET+COS (P2) *ZET*AWG(JJ) 

104 ZZST=ZZET+SIN(P2) *ZET»AWG (JJ) 

P3=YZET*SIN (PHI+APHA) -ZZET^COS (PHI+APHA) 
P4=YZET*COS (PHI+APHA) +ZZET*SIN (PHI+APHA) 

DO 201 n= 1,3 
DG 201 N=1,8 
2C1 BE1 (J,a,H) =0.0 
BE1 (J,1 ,4) =1 . 

EE1 (J,1 ,5)=-ZET**2*PHIP 
BE1 (J,1 ,6) =-ZET**3*PHIP 
BE1 (J, 1,7)=2.*ZET 
BE1 (J, 1 ,8) =3. *ZET**2 
BE1 (J,2,3)=1. 

BE1 (J,2,4) =ZFT*PHIP 
BE1 (J,2,5)=2,*ZET 
BE1 (J, 2,6) =3. +ZET**2 
BE1 (J,2,7) =ZET**2*PHIP 
BE1 (J,2,8) =ZET**3*PHIP 
BE1 (J,3,4) =-PHIP-ZET*2.*B2 
EE1 (J,3,5)=-2. 

BE1 (J,3,6) =-6. *ZET 

BE1 (J,3,7) =-2.*ZET*PHIP-ZET**2*2.*B2 
BE1 (J, 3,8) =-3. *ZET**2*PHIP“ZET**3*2. “B2 
DO 202 «=1,3 


EL«Pn9? 

ELHP1100 

ELHP1110 

ELMP1120 

EiMPinO 

EtMPl140 

ELHP1150 

RLI1P116C' 

ELBP1170 

ELBP1 180 

ELMP1190 

ELHP1200 

ELBP1210 

ELBP122C 

ELBP1230 

EL MP 1240 

ELHP125C 

ELBP1260 

ELHP1270 

ELMP1280 

ELMP129C 

ELBP1300 

ELHP1310 

ELHP1320 

ELMP1330 

ELHP1340 

ELBP1350 

ELMP136^- 

KLHP1370 

ELHP1380 

ELMP1390 

SLBP1400 

ELMP141C 

ELHP1420 

ELBP1430 

HLBP144C 


105 


DO 202 M=1,8 
BEP (IR,J,M,N) =0.0 
DO 202 K=1,8 

202 BEP (IR,J,M,N) =BEP(IR, J, H,N) +BR1 (K,N) 

DO 115 K=1,3 
DO 115 L=1,8 

115 D1 (K,L) =0.0 
DO 116 K=1,2 
DO 116 L=1,8 

116 E1(K,L)=0.0 

D1 (1,1)= COS (PHI) 

D1 (1,2) = SIN (PHI) 

D1(1,3)=P3 
D1 (1 ,4) =ZET 
D1 (1,7) =ZET**2 
D1 (1 ,8) =ZET^*3 
D1 (2, 1) =- SIN (PHI) 

D1 (2,2) = COS (PHI) 

D1(2,3)=P4 
D1 (2,5) =ZET^*2 
D1 (2,6)=ZET»i'*3 
D1 (3,3)=1. 

D1 (3,4) =ZET*PHIP 
D1 (3,5) =2.*ZET 
D1 (3,6) =3. *ZET**2 
D1 (3,7) =ZET**2*FHIP 
D1 (3,8) =ZET>^*3*PHIP 
D2 (1, 1)=CH1 (IR,J) 

D2 (1,2) =0.0 

D2 (1 ,3)=CH2 (IE,J) 

D2 (2, 1) =0.0 
D2 (2,2) =CB1 (IR, J) 

D2 (2,3) =0.0 
D2 (3,1)=CH2(IB,J) 

D2 (3,2) =0.0 
D2(3,3)=CM3(IR, J) 



ELMP1450 
ELHP1460 
ELBP1470 
ELMP14BP 
ELBP149C 
ELHP1500 
ELHP1510 
EL BP 1520 
ELMP1530 
ELBP1540 
ELMP1550 
ELHP156C 

ELBPl57n 
E1HP1580 
FLKP1590 
ELBP1600 
ElnPl 61 <^ 
EL BP 16 20 
EIBP1630 
ELBP1640 
ELBP1650 
ELBP1660 
ELBP1670 
ELBP1630 
ELBP1690 
BLBP1700 
ELBP1710 
ELBP1720 
ELBP1730 
ELMP1740 
ELHP1750 
ELBP1760 
ELMP1770 
EIBP1780 
ELBP1790 
ELBPIBO'I 






El (1 ,4) =1 . 

El (1,5) =-ZET**2*PHIP 
El (1,6) =-ZET**3*PHIP 
El (1 ,7) =2.*ZET 
E1 (1,8) =3.*ZET**2 
El (2,4) =-PHIP-Z£T*2. *B2 
El (2,5) =-2. 

El (2,6) =-6.*ZET 

El (2,7) =-2. ♦ZETtPHIP-ZET*=^2*2.*D2 
El (2,8) =-3.*ZET»*2*PHIP-ZET**3*2.*B2 
E2 (1 ,1) =CE1 (IF, J) 

E2 (1,2)=CE2(IF, J) 

E2 (2,1) =CE2(IR,J) 

E2(2,2)=CE3 (IF, J) 

DO 110 K=1,3 
DO 110 L=1,8 
D3 (K,L) =0.0 

o DO 110 M=1,3 

110 D3 (K,I)=D3 (R,L) +D2 (K,M) *D1 (M,L) 

DO 111 K=1,8 

DO 111 L= 1 , 8 
D4 (K,L)=0.0 
DO 111 M=1,3 

111 D4 (K,L)=D4 (R,L) +D1 (tt , R) +D3 (H , L) 

DO 113 R=1,2 

DO 113 1=1,8 
E3 (R,L)=0.0 
DO 113 M= 1 , 2 

113 E3 (R,L) =E3 (R,L) +E2 (R, M) ’^'El (M,!,) 

DO 114 K=1,8 

DO 114 L=1,8 
E4 (R,L) =0.0 
DO 114 M=1,2 

114 E4 (R,L)=E4 (K,L) +E1 («,K) *E3 (fI,L) 

DO 112 K=1,8 

DO 112 L=1,K 


ELHP1810 
ELWP1820 
ELMP1830 
ELMP1840 
ELF!P1850 
ELMP1860 
SL'1P1870 
ELMP1880 
ELMP1890 
ELHP1900 
ELHP1910 
RLaPl920 
ELHP1930 
ELMP1940 
ELHP1950 
ELMP1960 
ELnP1970 
ELMP1930 
ELMP1990 
ELMP2000 
ELaP2Q 10 
ELHP2020 
£LnP2Q30 
EL8P2040 
ELMP2050 
BLMP2060 
ELHP2070 
ELMP2080 
ELMP2090 
ELHP2100 
ELHP21 10 
ELnP2120 
ELWP21 30 
ELMP2140 
ELIiP2150 
ELHP2160 
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F (K,L) =i (K,L) +F4 (K,L) - WET 
1 12 D (K,L) =r (K,I) +D4 {K,L) ^WEl (IK, J) 

103 CONTINUE 

DO 105 1=1,7 
IP1=I+1 

DO 105 J=IP1,8 
5(I,J)=K(J,I) 

1G5 D (I, J) =L (J,I) 

DO 106 1=1, P 
DO 10c J=1,8 
EF1 (I,J) =C. 0 
ELM (I,vl) = 0. C 
DO 106 K=1,8 

EK1 (I,J) =FK1(I,J) +?; (K,I) *E (K,J) 

106 FLM (I,J)=£IM (I,J) +?; (K,I) ♦DiK, J) 

DO 107 1=1,8 
DO 107 0=1,8 
ELK (I, J) =C. 0 
ELMAS (I, J) =0. 0 
DO 107 fs=1,a 

ELK (I, J) =ELK (I , J) +EK1 (I ,K) (K, J) 

1 07 ELMAS (I,J) =ELMAS (I,J) +ELH (I, K) *h (K,J) 
IF (YK (IH) . EQ.O. 0) GOTO 504 
CALL BOTAT (3,ELK,DUKMY,IS) 

CALI. ROTAT ( 5 , LL M AS , DUMMY , IR) 

504 CONTINUE 

IF (FIMFB.EQ. 0. 0) GOTO 8320 
DO 1000 1=1,4 

IF (I. EQ. 3. OE. I. EQ- 4) GOTO 1 OOO 
£Li1LS(I,i)= ELMAS (1,1) + ELMAS (I, 1+4) 
1000 CONTINUE 

DO 1030 1=5,6 

ELMAS (I, I) = ELMAS (I, i) + ELMAS (1,1-4) 
1030 CONTINUE 

DO 1010 1=1,8 
DO 1010 0=1,8 



ELMP21 70 

ELMP2180 

ELMP21 90 

ELBP2200 

RLMP2210 

FLMP2220 

ELMP2230 

ELMP224Q 

ELMP2250 

ELMP2260 

ELMP2270 

ELMP2280 

ELHP2290 

ELMP2300 

ELMP2310 

ELMP2320 

EIMP2330 

EL HP 2340 

ELMP2350 

ELMP2360 

^LMP2370 

ELMP2380 

ELMP2390 

ELMP2400 

ELBP2410 

BLMP2420 

SLMP2430 

ELMP2440 

ELMP2450 

ELMP2460 

ELMP2470 

ELMP2480 

SLNP2490 

SLMP2500 

RLMP2510 

ELMF2520 





IF(I,EQ.J) GOTO 1010 

ELKP2530 


hLilAS (I , J) = O .G 

ELNP2540 


1G10 CONTINUE 

EIMP2550 


WHITE (MWIITE,1020) ( (ELNAS (1, j) , J=1,3) ,1=1,8) 

ELMP2560 


1020 FOHKATC *, FD15.6) 

ELMP2570 


832C CONTINUE 

ELMP2580 


502 CAI.I ASSEfI (IB, IK, ElK,SriFK,ICP,INn«) 

ELNP2590 


CALL A3S?N (Ifi, IK,EIEA£, AMASS,ICP,INU»1) 

ELMP2600 


IF(IKK(I?,1) .EQ.O) GOTO 8200 

ELNP2610 


NFE= LKK(ia,1) 

EIMP2620 


DO b210 NO=1,NPE 

ELNP2630 


NO = NO+ 1 

ELMP2640 


M= IKK(IK,«0) 

SLMP2650 


Z£T= AZET (N) »»= AL (IS) 

ELMP2660 


PilIP= B1 +2. 0*B2*ZET 

ELKP2670 


DO8240 1=1,3 

ELMP2630 


DO 3 240 N = 1 , a 

ELMP2690 

H 

O 

82 40 AE1 (I,N) = 0.0 

ELaP2700 

CO 

AE1 (1 ,4) =1.0 

ELMP27 10 


AE1 (1 ,5) = — ZET**2*FHIF 

ELMP2720 


AE1(1,6) = -ZET»*3^rHI? 

ELMP2730 


All (1 ,7) = 2. *ZET 

ELMP2740 


AE 1(1,6) = 3.*ZEI**2 

ELMP2750 


AE1 (2,3) =1,0 

EinP2760 


A£1 (2,4) = SET+FHIP 

SLMP2770 


AE1(2,5) = All (1,7) 

ELMP2780 


AE1 (2,6) = AE1 (1,8) 

ELMP2790 


AF1(2,7) =-AEl(1,5) 

ELMP2S00 


A£1(2,8) =-AE1(1,6) 

ELHP2810 


AE1(3,4) = -£HIP-ZET»2.*P2 

ELMP2B20 


AE1 (3,5) = -2.0 

ELMP2830 


AK1 (5,6)= -6 ,*ZET 

SLMP28U0 


AE1 (3,7) =-2. 0+Z£I*PHIF-ZFT**2*2. 0*52 

ELMP2850 


AE1 (3,8) =-3. *ZET + *2*FHIP-ZET**3*2.0*B2 

ELHP2860 


DO 8 24 5 1= 1 , 3 

ELHP2870 


DO 8245 N= 1,8 

ELKP2380 


.. ■* 
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ASP = 0.0 

DO H?Ab K= 1,8 

8245 aL'P lO ^ AEP(ft,I,N) + A h‘1 (I , K ) ♦ S (K , W) 

8210 CON-TINOE 
82 JO CONTINUE 

EX(1) =C.O 
BX'(2) •= 1.0 
BO 303 J='l,2 
ZET= AL(IR)* PX(J) 

FHIP= B1+2.0*B2*ZET 
DO 301 M=1,3 
BO 301 1,6 

301 EE1(J,f1,w) = 0.0 

BE 1 (vT , 1 / 4) = 1 . 

BRI (.1, 1,5) =-ZF.T*v2»FFiiP 
BE1 (J,1,S)=-ZET + *3»PHIP 
B£1 (J, 1 ,7) =2,*Z£T 
BE1 (J, 1 ,3) ^2, *ZET*>*‘2 
B El (J,2 ,3) =1 . 

BEI (J, 2,4) =ZET*‘PHIP 
BE1 (J,2 ,5) =2. *ZET 
BF,1 (J,2,6) =3. *ZFI**2 
BE1 {J,2,7) -Z?T*»2*FHTP 
BE1 (J, 2,3) =ZFT^*3*PHIP 
BE1 (J,3,4) =-rHIP-ZET’!'2. »B2 
BE1 <J, 3,5) =-2. 

BE1 (J, 3,6) =-6. «ZET 

BE1 (0,3 ,7)^-2. ^ZET*PHIP~ZET*=t'2*2.»P2 
BET (J, 3,8) =-?. »ZET**2*PH1P-ZET + *3*2.T'32 
CO 502 «=1,3 
CO 30 2 N='',8 
CEP (IH, J,M, N) =C.O 
DO 301 K=T,a 

302 DEP (IF, j,H,N) = CEP (IH,J,K,N) 4-BE1 (J,K,K) *A(K, N) 

303 CONTINUE 
101 CONTINUE 


ELMP2890 
ELMP2900 
ELMP2910 
ELMP2920 
ELHP2930 
ELMP2940 
BLMP2950 
ELMP296C 
ELMP297C 
ELMP2980 
ELMP2990 
ELBP3000 
ELSP30 10 
£LnP3020 
ELHP3030 
FIKP3040 
R1BP305C 
ELMP3060 
ELHP3070 
ELMP3080 
ELMP3090 
ELHP3100 
ELHP31 10 
ELBP3120 
EL MP3 1 30 
ELHP3140 
ELMP3150 
ELHPSI 60 
ELMP3170 
ELMP31 80 
ELMP3190 
ELHP3200 
SLMP3210 
ELMP3220 
ELMP323C 
FLWP3240 


lO 13 

c > 
> Q 
r- m 


-< (/) 


DO GiOO i-i,isrzs 

PEhCK(I) = STIFK(I) 

830C 3£ACrt(I)- AHASS(I) 

IP(NBCUND .FQ. 0) FFIIJFN 
DO 91 I=1,NECOND 
JT4=NGBFB (I) *4 
Jr4M3=JT4-3 
JT4M2=v7T4-2 
JT4fl1 = JI4-1 

IF (FIMPB. N£. C. 0) GC'^0 8 310 
CALL FRC <JT4M3, AMASS, NX ,ICOL,INnK) 

IF (NBC (I) . £Q. 1. GL. NEC (I) .FQ. 2) CALL FP.C ( J T4m1 , AM A SS , N 1 , ICOL , I NHM ) 
IF (NHC (I) . FQ.2. CE. NLC (I) . EQ. 3) CALL EEC (JT4H2 , AMAS S , NX , ICOL 
8310 CONTINUE 

CALL F;EC(JT4M3,STIFK,NI,ICOL,INUfl) 

IF (NEC (I) . £Q. 1. OR. NEC (I) . EQ. 2) CALL EEC { JT4M1 , 3TIFK, NI, ICOL, TNUM) 
IF (NBC (I) . FQ. 2. OF. NBC (I) .FQ.3) CALL EPC (J'T4K 2 , 5TIF K , N I, ICOL , I NUM) 
91 CONTINUE 
EETUPN 
END 


ELMP3250 
BLMP3260 
F.LMP3270 
ELMP32B0 
El MP3 2 90 
FLMP3300 
EL MP3 3 10 
ELMP3320 
ELMP3330 
ELMP334C 
ELHP3350 
ELMP3360 
ELMP3370 
ELMP338C 
EL MP 3 3 90 
ELMP3400 
FLMP3410 
FLMP3420 
ELBP3430 
ELMP3440 
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SUBROUTINE ERC{II, STlFB,NI, ICOL, INUM) 

EEC 

0010 

r 

FOR ELIMINATING ROWS AND COLUMNS IN STIFM 

ERC 

0020 


IMPLICIT REALMS (A-H,0-Z) 

ERC 

0030 


DIMENSION STIFM (1) ,ICOL (1) ,INUM (1) 

ERC 

0040 


IC=ICOL (II) 

ERC 

0050 


CO 101 J=IC,1I 

ERC 

0060 


L=J+INUM(II) 

ERC 

0070 

101 

STIFM (L) =0. 

ERC 

0080 


DO 102 I=II,NI 

ERC 

0090 


IC1 = IC0L (I) 

ERC 

0100 


IF (II-IC1) 102^103,103 

ERC 

0110 

103 

L=II+INUM (I) 

ERC 

0120 


STIFM (L) =0. 

ERC 

0130 

102 

CONTINUE 

ERC 

0140 


L=II+INDM (II) 

ERC 

0150 


STIF!1(L)=1. 

ERC 

0160 


RETURN 

EEC 

0170 


END 

ERC 

0180 
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152 

101 




102 

103 


140 

104 

150 


151 


LOWEE TBIANGIJLAB FACTOR OF STIFH MATRIX IS COMPUTED 

AND STORED FACT0020 

IMPLICIT HEAL*8 (A-H,0-Z) 

FACT0030 

DIMENSION STIFB(I) ,NCOL (1) rKROB (1) ,NDEX (1) ,IC (1) 

FACT0040 

ABS (Q)=DABS(Q) 

FACT0050 

STIFM 

FACT0060 

PROCESS COLUMN 1 

FACT0070 

1=1 

FACT0080 

IDET=0 

FACT0090 

IF (STIFH(D) 152,122, 101 

FACT0100 

IDET=IDET+1 

PACT0110 

INDEX=0 

FACT0120 

ieow=i 

FACT0130 

TFST=1.0 

FACT0140 

KN=1 

FACT0150 

DO 103 I=2,NRORS 

FACT0160 

KN=KN+I-NCOL (I) 

FACT0170 

IF (NCOL(I)-I) 103,102,103 

FACT0180 

STIFM (KN)=STIFM(KN) /STIFM (1) 

FACT0190 

CONTINUE 

FACT0200 

DO 121 I=2,NRGWS 

FACT0210 

IP1=I+1 

FACT0220 

IM1=I-1 

FACT0230 

sriK=o.o 

FACT0240 

NCK=0 

FACT0250 

III=NCOL(I) 

FACT0260 

rNDEX=INDEX+I-III 

FACT0270 

IF (IMI-III) 150,140,140 

FACT0280 

DIAGONAL TEEMS 

FACT0290 

DO 104 J=III,IM1 

FACT0300 

IJ=INDEX+J 

FACT0310 

SDM=SUPH-STIFH (IJ) *STIFH (IJ) *STIFM (IC (J) +J) 

FACT0320 

II=INDEX+I 

FACT0330 

SUM=STIFK (II) -SUM 

FACT0340 

IF (SUM) 151,122,105 

FACT0350 

IDET= IDET +1 

FACT0360 


105 

TES= ABS (SUM/STIFM (II) ) 

FACT0370 


IF (TES-TEST) 106,107,107 

FACT0380 

106 

TEST=IES 

FACT0390 


IBOW=I 

FACT0400 

107 

STIFM(II)= SUM 

FACT0410 

C 

OFF DIAGONAL TERMS 

FACT0420 


IF (I-NROWS) 108,121,121 

FACT0430 

108 

KNDEX^INDEX 

FACT0440 

109 

DO 116 K=IP1,NF0WS 

FACT0450 


KK=NCOL (K) 

FACT0460 


KNDEX=KNDEX+K-KK 

FACT0470 


SUM=0.0 

FACT0480 


IF (KK-III) 110,130,130 

FACT0490 

110 

KK=Iii 

FACT0500 

130 

IF (IKI-KK) 112,131,131 

FACT0510 

131 

DO 111 J=KK,I«1 

FACT0520 


IJ=INDEX+J 

FACT0530 


fCJ=KNDEX+J 

FACT0540 

111 

3UM=SUM + STIFH (IJ) ♦STIFM (KJ) *SXIFM (IC (J) 

FACT0550 

112 

IF (I-KK) 114,115,115 

FACT0560 

114 

IF (NIRHEG ,LE. 0) GO TO 121 

FACT0570 


IF (NIBREG .GT, NROHS /2) GO TO 116 

FACT0580 


GO TO 190 

FACT0590 

115 

KI=KNDEX+I 

FACT0600 


STIFM (KI)= (STIFM (KI) -SUM) /STIFM (II) 

FACT0610 

116 

CONTINUE 

FACT0620 


GO TO 121 

FACT0630 

190 

NCK=NCK+1 

FACT0640 


IF (NIBREG .LT. NCK) GO TO 121 

FACT0650 


IP1 = KROW (NCR) 

FACT0660 


IF (I .LT. NCOL(IPI)) GO TO 190 

FACT0670 


IF (IP1 .LT. K) GO TO 190 

FACT0680 


KNDEX=NDEX (NCK) 

FACT0690 


GO TO 109 

FACT0700 

121 

CONTINUE 

FACT0710 


RETURN 

FACT0720 
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122 WRITE {NTAPE6,1001) I FACT0730 

IDET=-I FACT0740 

1001 FORMAT (37H1 MATRIX NOT POSITIVE DEFINITE IN ROH,I4) FACT0750 

WRITE (NTAPE6, 1002) SUM FACT0760 

1002 FORMAT (27H0SQ0ASE OF DIAGONAL TERM = , E15. 8,/28H0PA8TIALLY FACTORFACT0770 

1ED K MATRIX,//) FACT0780 

RETURN FACT0790 

end FACT0800 


115 


SUBEOOTINE IDENT (NQB DENS, EPS ,SIG,NBR) 

IMPLICIT PEA1*8 (A-H,0-Z) 

DIMENSION DENS (3,6) ,EPS{3,5,6) ,SIG(3,5,6) ,B(6) 

CCHMON/MAT/YODNG (3 , 6) , DS (3 , 6) ,SNO (3,5,6) ,NSFL (3 ,6) , P (3 ,6) ,NLA Y 
COMMON /FG/ IK,IKK,ICP,LREF,NOGA,NFL,NI,ICOL(205) ,IN0B(205) 

* ,NBCOND,NBC(7) ,NODEB (7) ,KROH(8) ,NDEX(8) ,NIRR£G 
COMMON /ML/ MNEL(6) 

COHMCN/FC/ Y(51) ,Z (51) , ANG (51) ,H(51,3) 

COMMON /TAPE/ MPEAD, MWEITE, MPrjNCH 
COMMON /TAM/ MKE(51) 

IF(ICP.GT.O) GO TO 31 
WRITE (HWRITE,2) 

2 format A SPATIAL FINITE ELEMENT AND HOUBOLT 

*L OPERATOR PROGRAM*, /»' USED TO CALCULATE THE NONLINEAR 
♦ES OF A VARIABLE THICKNESS MULTILAYER *,/,* ARBITRARILY 

* PARTIAL RING WITE! THE FOLLOWING PARAMETERS * ,//) 

GO TO 30 

31 WRITE (MWEITE, 1) 

1 format (•-♦♦♦♦♦♦♦♦♦♦♦ A SPATIAL FINITE ELEMENT AND HOUBOLT 

*L OPERATOR PROGRAM*,/,* USED TO CALCULATE THE NONLINEAR 
♦ES OF A VARIABLE THICKNESS MULTILAYER *,/,* ARBITRARILY 

* COMPLETE RING WITH THE FOLLOWING PARAMETERS »,//) 

30 CONTINUE 

NBR1 = NBR+1 
DO 600 LSUB=1,NBR1 
IF (L50B.EQ.1) GOTO 100 
LSUBI = LSUB-1 
WRITE(MWRITE,115) LSUBI 

115 FORMAT ('-PROPERTIES OF BRANCH NUMBER*, 14,* :») 

GOTO 110 

100 WRITE (MWRITE, 105) 

105 FORMAT ('-PROPERTIES 
110 CONTINUE 
NLAP=NLAY 

IF (LSUB.GT. 1) NLAP 


OF THE MAIN STRUCTURE:*) 


= 1 


WRITE (MWRITE, 3) B (LSUB) ,MNEL (LSUB) , NOGA, NFL , NLAP, LRBP 


IDNT0010 
IDNT0020 
IDNT0030 
IDNT0040 
IDNT0050 
IDNT0060 
IDNT0070 
IDNT0080 
IDNT0090 
IDNT0100 
IDNT0110 
IDNT0120 
TEHPORAIDNT0130 
RESPONSIDNT0140 
CURVED IDNT0150 
IDNT0160 
IDNT0170 
IDNT0180 
TEMPORAIDNTO190 
RESPONSIDNT0200 
CURVED IDNT0210 
IDNT0220 
IDNT0230 
IDNT0240 
IDNT0250 
IDNT0260 
IDNT0270 
IDNT0280 
IDNT0290 
IDNT0300 
IDNT0310 
IDNT0320 
IDNT0330 
IDNT0340 
IDNT0350 
IDNT0360 


OQ 

-n 30 

o z 
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2 
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33 

40 

41 

3 5 


WIDTH OF RING (IN) 

OF ELEMENTS 

OF SPANWISE GAOSSIAN POINTS 
OF DEPTHWISE GAUSSIAN POINTS 


NUMBER OF DEPTHWISE 
NUMBER OF LAYERS 


FORMATC WIDTH OF RING (IN) =*,£15.6,/, 

** NUMBER OF ELEMENTS 

** NUMBER OF SPANWISE GAUSSIAN POINTS -* ,15,/, 

NUMBER OF DEPTHWISE GAUSSIAN POINTS =*,I5,/, 

♦* NUMBER OF LAYERS =*,I5,/, 

*• REFERENCE SURFACE IS THE MIDDLE SURFACE CF LAYBR=» , 15,/) 

DO 32 M=1,NLAF 

WRITE (MHRITE,33) M, DENS (M,LSUB) , NSFL (M,LSUB) 

FORMAT (* MATERIAL PROPERTIES OF LAYER =*,I5,/, 

DENSITY (LB-SEC**2/IN**4) =• ,E15.€,/, 

*' NUMBER OF MECHANICAL SUBLAYERS =«,I5,/) 

NSFLM= NSFL(H,LSUB) 

WRITE(MWEITE,40) 

FORMAT (19X, • STRAIN STRESS *) 

WPITE(MWRITE,41) (L,EPS {M,L,LSUB) , SIG (M, L, LSOB) ,L=1,NSFLM) 

FORMAT (14X,I5,2E15.6) 

IF (DS (M,LSUB) .LE.0.0) GO TO 34 
WEITE(MWRITE,35) DS (M,LSUB) ,P(M,LSUB) 

FORMAT (9X,* MATERIAL IS STRAIN RATE SENSITIVE WITH •,/, 

♦19X,* D =*,E15.6,» P = *,E15.6,/) 

GO TO 32 


-*,I5,/, 

=»,E15.6,/, 

=*,I5,/) 


34 WHITE (MWRITE, 36) 

36 FORMAT (9X,» MATERIAL IS STRAIN RATE INSENSITIVE » ,/) 

32 CONTINUE 

600 CONTINUE 

IF(NBCOND .EQ. 0) GO TO 5 
DO 14 I=1,NBCOND 

IF(NBC(I) .EQ. 1) WRITE(MHRITE, 15) NCDEB (I) 

IF (NBC (I) .EQ. 2) WRITE (MWRITE, 16) NODEB(I) 

IF(NBC(I) .EQ. 3) WRITE (MWRITE, 17) NCDEB(I) 

14 CONTINUE 

15 FORMAT (* SYMMETRY DISPLACEMENT CONDITION AT NODE =*,I5) 

16 FORMAT (' CLAMPED DISPLACEMENT CONDITION AT NODE -=*,I5) 

17 FORMAT (* HINGED DISPLACEMENT CONDITION AT NODE -*,I5) 

GO TO 18 

5 WRITE (MWRITE, 13) 


IDNT0370 

IDNT0380 

IDNT0390 

IDNT0400 

IDNT0410 

IDNT0420 

IDNT0430 

IDNT0440 

IDNT0450 

IDNT0460 

IDNT0470 

IDNT0480 

IDNT0490 

IDNT0500 

IDNT0510 

IDNT0520 

IDNT0530 

IDNT0540 

IDNT0550 

IDNT0560 

IDMT0570 

IDNT0580 

IDNT0590 

IDNT0600 

IDMT0610 

IDNT0620 

IDNT0630 

IDNT0640 

IDNT0650 

IDNT0660 

IDNT0670 

IDNT0680 

IDNT0690 

IDNT0700 

IDNT0710 

IDNT0720 



117 


FORMAT (/,* THERE IS NO PRESCRIBED DISPLACEMENT CONDITION*) IDNT0730 

IF(N0fi .EQ. 0) GO TO 19 IDNT0740 

WRITE (MWRITE, 20) IDNT0750 

FORMAT (/,* CONSTRAINTS (ELASTIC FOUNDATION/SPRING) AS DBSCRIBEDIDNT0760 


♦ BY INPUT *,//) 

GO TO 23 
WRITE(HWRITE,21) 

FORMAT (/,» THERE ARE NO ELASTIC SPRING CONSTRAINTS*,//) 

CONTINUE 

WRITE (MWRITE, 47) 

FORMAT (1 OX,* NODE NO Y COORD (IN) Z COOED (IN) 

♦RAD) RING THICKNESS (IN) *,/,70X,* LAYER 1 

♦ 2 LAYER 3 * ,/) 

DO 45 1=1, IKK 

WRITE(MHRITE,46)I,Y(I) ,Z (I) ,ANG(I) , (H (I,M) ,M=1,NLAY) 
FORMAT(10X,I5,4X,6E17.6) 

RETURN 

END 


Z COOED (IN) 
LAYER 1 


IDNT0770 
IDNT0780 
IDNT0790 
IDNT0800 
IDNT0810 
IDNT0820 
SLOPE ( IDNT0830 
LAYER IDNT0840 
IDNT0850 
IDNT0860 
IDNT0870 
IDNT0880 
IDNT0890 
IDNT0900 


o o 

n 2 

*u Q 
o z 
o > 
r“. 

•O 3 

C > 
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r- m 
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SUBRDUTINE MI NV { A »N , DET ,L t 
INVERT MATRIX A 
IMPLICIT REAL*8(A-H,'3-Z) 

DIMENSION A( 1) ,U 1) ,M( 1) 
AB$(Q?=DABS(Q) 

SEARCH FOR LARGEST ELEMENT 

DET=1.0 

NK=-N 

DO 8C K=1,N 

NK=NK+N 

L(K)=K 

M(K)=K 

KK=NK+K 

RIGA=A(KK» 

DO 20 J=K,N 
IZ=N^(J-1) 

DO 20 I=K,N 
IJ=IZ+I 

10 IF( ABSiniGA)- ARS(A( un >15,20,20 
15 BIGA=A(IJ) 

L(K)=I 
.M(K )=J 
20 CONTINUE 

INTERCHANGE ROWS 

J=L(K) 

IFIJ-K) 35,35,25 
25 KI=K-N 

DO 30 1=1, N 
KI=KI+N 
H0L0=-A(KI ) 

JI=KI-K+J 

A(KI)=A(JI) 
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30 A(JI) =H0LD 

INTERCHANGF COLUMNS 

35 I=M(K) 

IF(I-K) 45,45,38 
38 JP=N>«'{ T-1) 

DO 40 J=1,N 
JK=NK+J 
JI=JP+J 
H0L0=-A(JK) 

A( JK) = A( JI ) 

40 A(JI) =H0LD 

DIVIDE COLUMN BY MINUS PIVOT (VALUE OF PIVOT ELEMENT IS 
CONTAINED IN BIGA) 

45 IF(BIGA» 48,46,48 

46 DET=0.0 
RETURN 

48 DO 55 1=1, N 

IF(I-K) 50,55,50 
50 IK=NK-H 

A( IK)=A( IK I/(-BIGA) 

55 CONTINUE 

REDUCE MATRIX 

DO 65 1=1, N 
IK=NK+I 
H0LD=A( IK» 

IJ=I-N 

DO 65 J=1,N 

IJ=IJ+N 

IF(I-K) 60,65,60 
60 IF(J-K» 62,65,62 
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KJ=IJ“I+K 

MINV0700 

A( IJ)=HDLD*A(KJ)-»-ft{ IJ) 

MINVO710 

CONTINUE 

MINV0720 
MI NV 07 30 

OIS^IDE ROW BY PIVOT 

MINVU740 

MINV0750 

KJ=K~N 

MINV0760 

DO 75 J=lfN 

MI NV 0770 

KJ=KJ+N 

MINV0780 

IF(J“KI 70,75,70 

MI NV 0790 

A(KJ)=A(KJ)/BIGA 

MINV08D0 

CONTINUE 

MINV0810 

MINVJ820 

PRODUCT OF PIVOTS 

MINV083D 

MINV0840 

DET=DET*BIGA 

MIN VO 8 50 
MINV0860 

REPLACE PIVOT BY RECIPROCAL 

MI NV 0870 
MINV088G 

A(KK)=1.0/BIGA 

MINV089D 

CONTINUE 

MINV0900 

MlNV091vO 

FINAL ROW AND COLUMN INTERCHANGE 

MINV0920 

MINVC930 

K = N 

MINV0940 

K=(K-1) 

MINV0950 

IF(K) 150,150,105 

MIMV096C 

I=L(K) 

MINV0970 

IFU-K) 120,120,108 

MINV0980 

JQ=N*(K-1) 

MINV0990 

JR=N*( I-l) 

MI NV 1000 

DO 110 J=1,N 

MINVIOIO 

JK=JQ+J 

MINV1020 

H0L0=A{ JK) 

MINV103D 

J I=JR+J 

MI NV 1040 

A( JK)=-A( JI ) 
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110 A(JI) =HOLD 
120 J=M<K) 

IF{J-K) I'lO, 1.^0, 125 
125 KI=K-N 

DO 130 1=1, N 
KI=KI+N 
HOLD=A(KI ) , 
JI=KI-K+J 
A(KI )=-A( JI) 

130 A(JI) =HOLO 
GO TO 100 
150 RETURN 
END 
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SUBROUTINE OMUL T( SOVC T ,R WVC T , NCOL t NROWS t ACC , KROW , NDEX , NIRREG ) 

QMUTCOOC 

c 

TO FIND ACC OF { SQVCT ) * ( R WVC T ) = ( ACC ) 
IMPLICIT REAL*8(A-H,Q-Z) 

OMUTOOlO 


DIMENSION SOVCTm ,RWVCT( 1) ,NCOU 1 ) . ACC ( 1 ) i KROWI 1 ) ,NDFX ( 1 ) 

OMUT0020 


INDEX=0 

0MUT0030 


NR0WM=NR0WS-1 

0MUT0O40 


IF (NIRREG .GT. 0) GO TO 200 

0MUTJ05C 

c 

HIGH SPEED PRODUCT FOR REGULAR MATRICES 

OMUT006D 


DO IDQ NN=1,NR0WM 

0MUT0D70 


SUM=0.0 

0MUT0080 


IP1=NN+1 

OMUT0090 


KST=NCOL(NN) 

OMUTOl'^0 


INDEX=INDEX+NN-KST 

QMUTOllO 


DO 101 KPL=KST,NN 

0MUT0120 


IJ=INDEX+KPL 

0MUT0130 

101 

SUM=SUM + SOVCT( I J)=J'RWVCT(KPL) 

OMUT0140 

c 

NOW FOR THE COLUMN ELEMENTS 

OMUT0150 


JNDEX=I J 

0MUT016D 


DO 102 KPL=IP1»NR0WS 

0MUT0170 


TF(NN.LT,NCOL(KPLMGO TO 100 

OMUT0180 


JNOEX=JNDEX+KPL-NCOL ( KPL H 

OMUT0190 

1D2 

SUM=SUM-i-SOVCT( JNDEX J*RWVCT(KPL) 

OMUT0200 

100 

ACC(NN)=ACC(NN)+SUM 

0MUT0210 

C 

NOW FOR THE LAST ROW 

OMUT0220 

104 

KADD=NCOL (NROWS ) 

0MUT023n 


SUM=0.0 

QMUT0240 


INDEX=INDEX+MROWS-KAOD 

OMUT025U 


DO 103 KPL=KADD, NROWS 

OMUT0260 


IJ=INDEX+KPL 

0MUT0270 

103 

SUM=SUM+SOVCT(I J)*RWVCT(KPL) 

OMUT0280 


ACC ( NROWS )=ACC( NROWS )+SUM 

OMUT0290 


RETURN 

0MUT0300 

C 

MEDIUM SPEED PRODUCT FOR NIRREG .LE* NHCiWS/2 

OMUT0310 

200 

IF (NIRREG .GT. NROWS/2) GO TO 201 

QMUT0320 


DO 105 NN=1,NR0WM 

OMUT0330 


IP1=NN+1 

OMUT0340 
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KST=f'JCOL(NN) 

IMDEX=INDEX+NN-KST 

SUM=D.D 

DO 106 KPL=KST,NN 
IJ=I'^DEX+KPL 

106 SUM=SUM+SQVCT( IJ)*RWVCT(KPL) 

NCK=0 

JNDEX=IJ 

107 DO 108 KPL=IP1,NR0WS 

IFCNN .LT. NCOKKPD) GO TO 109 
JNDEX=JNDEX+KPL-MCOL(KPL) 

1D8 SUM=SUM+SOVCT< JfSJDEX)*RWVCT(KPL) 

GO TO 105 
1D9 !^CK=NCK + l 

IF (NCK .GT.NIRREG) GO TO 105 
IF (KPL .GE. KROW(NCK)) GO TO 1)9 
IP1=KR0W(NCK) 

JNDEX = NDEX(NCK)+flN 
GO TO 107 

105 ACC{NN)=ACC(MN)+SUM 
GO TO 104 

201 DO 503 NN=1,NR0WM 
IP1=NN+1 
K=NCOL(NN) 

INDEX=INDEX+NN-K 

5UM=0.Q 

DO 502 KRX=K,NM 
IJ=INDEX+KRX 

502 SUM=SUM+SOVCT(I J)>!'RWVCT{KRX) 
JNDEX=IJ 

DO 504 KRX-IP1,NR0WS 
K=NCDL(KRX ) 

JNDEX=JNDEX+KRX~K 
IF (NN ,LT. K) GO TO 504 
SUM=SUM+SQVCT( JNDEX)*RWVCT(KRX) 
504 CONTINUE 
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5li3 ACC(NN) = ACC(NN) + SUM 

GO TO lOA 
END 


OMUT0710 

0MUT0720 

fJMUTD73C. 


ro 
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SUBROOTINE QEEH (A1 , AXG, A«G , SPRIN) 

TO FIND EFFECTIVE STIFFNESS flATEIX DUE TO ELASTIC RESTRAINTS 
IMPLICIT REAL + 8 (A-H,0-Z) 

DIMENSION DUMMY (8) 

DIMENSION AL(1) ,AXG(1), AHG (1) ,BNG (51) ,SPRIN (1) 

♦,ELR (8,8) ,ELRR(8,8) ,ELRP(8,8) ,A(8,8) ,LMI(8) ,MMI(8) 
COMMON/MAT/YOUNG (3,6) ,DS (3,6) ,SNC (3, 5 , 6) ,NSFL (3 , 6) , P (3 ,6) ,NLAY 
COMMON /FG/ IK,IKK,ICP,LREF,NOGA,NFL,NI,ICOL(205) ,INUM(205) 
♦,NBCOND,NBC (7) , NODEB (7) , KEOW (8) , NDEX (8) , NIRREG 
COMMON/FC/ Y(51) ,Z(51) ,ANG(51) ,H(51,3) 

COMMON /ELFU/ FQEEF (205) ,EEX (4) , NQR,NORP, NORU 
*,NREL (4) ,NBST (4) ,NBE0(4) 

COMMON/BOUN/ YK(51) , NBCONB, NBCB (7) ,N0DBB(7) ,HK(51) , EOT (5,2) 
*,XDIST (6) ,DROT (5 0) ,NODE (6) 

COMMON /TAM/ MKE(51) 

COMMON /TAPE/ MEE AD , M WRITE , HPUNCH 
COMMON /BR/ NVEC(51,2), LMT(51) 

SIN (Q)=DSIN(Q) 

COS (Q) =DCOS (Q) 

ATAN (Q) =DATAN (Q) 

ABS (Q)=DABS (Q) 

SORT (0)=D5QRT (Q) 

FORMAT (/,1 OX, »THE VALUE OF THE TANGENTIAL SPRING CONSTANT IS =• ,E 
*5.6,/,10X, ’THE VALUE OF THE RADIAL SPRING CONSTANT IS =’,E15.6,/, 
*10X,*THE VALUE OF THE TORSIONAL SPRING CONSTANT IS =»,E15.6,/) 

IF (NORP .EQ. 0) GO TO 1 

READ (MREAD,2) SCTP, SCTY,SCRP, (NREL(I) ,EEX(I) ,1-1, NORP) 
F0RMAT(3D15.6/(4(I5,D15.6)) ) 

WRITE (MWRITE, 1100) NORP 

FORMAT (//,» THE CONSTANTS FOR', 13, • ELASTIC POINT CONSTRAINTS ARE 

a: ') 


WRITE (MWRITE, 777) SCTP , SCTY, SCRP 
WRITE (MWRITE, 1 140) 

1140 FORMAT (/,1 OX, ’ELEMENT’ ,10X, ’S COORDINATE’) 

WRITE (MWRITE, 1145) (NEEL (I) ,REX(I) ,1=1, NORP) 
1145 FOEMATC • , 1 0X,I3 , 13X, D1 3. 6) 
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DO 10 IQ=1,NOEP 
SL=BEX(IQ) 

NE=NEEL(IC) 

HKE<NE) -1 
K1 = UyEC(NE,1) 

K2 = NVEC(NE,2) 

P5=Z {K2)-Z (K1) 

P6=Y (K2) -Y (K1) 

P7=ANG(K2 )-ANG(Kl) 

IF (YK (NE) . EQ. 1 .0) P7=ANG (K2) - EOT (L,2) -ANG (K1) 

IF (YK(SE) . EQ. 1.0. AND.RCT (L,1) .EQ.0.0) P7=E0T(L,2) +ANG (K2) -ANG(KI) 
IP CYK(NE) .BQ.2.0) P7= ANG(K2)- DEOT{NE) - ANG(K1) 

IF (YK(NE) . EQ. 3.0) P7=E0T (L,2) +ANG(K2) -DROT (NE) -ANG (Kl) 

PIE= 3.141592653589793D+00 
PIE2= 2.0*PIE 
PIE32= 1.5 *PIE 
ANG2=ANG(K2) 

ANG1=ANG (Kl) 

IF (YK(NE) . EQ.1 .O.AND.EOT (L, 1 ) . EQ. 0. 0) ANG (K2)=E0T (L,2) •t-ANG(K2) 
IF(YK(NE).EQ.1.0.AND.ROT(L ,1) . EQ. 1 . 0) ANG (Kl) =ROT (L ,2>+ANG(Kl) 
IF (YK (NE) . EQ.2.0) ANG(K1)= DROT (NE) + ANG (Kl) 

IF (YK(NE) . EQ. 3.0) ANG(K2)= EOT (L, 2) +ANG (K2) 

IF (YK (NE) .EQ.3.0) ANG(K1)= DSOT(NE) + ANG (Kl) 

APHA = PIE / 2.0 

IF (P5. IT. 0.0) APHA= -APHA 

IF (?6. NE.0.0) APHA= ATAN (P5/P6) 

IF (P6,LT.0,0.AND.P5.LT.0 .0) APHA=APHA-PIE 
IF(P6.LT.0.0 .AND. E5.GE.0.0) APHA=APHA+PIE 
BNG (NE+1)=ANG (K2 ) 

BNG (NE) =ANG (K1) 

IF (P7.GT. (PIE32 ) .AND. APHA. IT. 0. 0) BNG (NE* 1) =ANG (K2) -PIE2 
IF (P7.GT. (PIE32 ) . A ND . APH A .GT . 0. 0) BNG (NE) = ANG (Kl) +PIE2 
IF (P7. LT. (-PIE32) .AND. APHA.GT.O. 0) BNG (NE+1 ) =ANG (K2) ♦PIE2 
IF (P7.LT. (-PIE32) .AND.APHA.LT.O. 0) BNG (NE) =ANG (Kl) -PIE2 
BZEE^BNG (NE) -APHA 

E1= (-2.+BNG (NE+1) -4c*BNG (NE) +6. *APHA) /AL (NE) 
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E2= (3. *BNG(NE + 1) +3.*BNG (NE) -6. *APaA) /AL (Nfi) ♦♦2 
ANG(K2)^ ANG2 
ANG (K1)= ANG1 
DO 400 1=1,8 
DO 400 J=1,8 
400 A(I,J)=0.0 

A(1,1)= COS (BNG (NE)-APHA) 

A(1,2)= SIN (BNG (NE) -APHA) 

A (2, 1) =“SIN (BNG (NE) -APHA) 

A (2,2)= COS (BNG (NE) -APHA) 

A (3,3)=1. 

A (5 ,1)=COS (BNG(NE+1) -APHA) 

A (5,2) =SIN (BNG(NE + 1) -APHA) 

A(5,3)=P6*SIN(3NG (NE + 1) ) -P5+COS (BNG (NE+ 1) ) 

A (6, 1)=-SIN(BNG (NE + 1) -APHA) 

A (6,2)=COS (BNG (NE+1) -APHA) 

A (6,3)=P6*COS (BNG (NE + 1) ) +P5+SIN (BNG (NE+1) ) 

A (7,3) = 1. 

A(4,4)=1. 

A (5,4) =AL (NS) 

A (5,7) =AL (NE) ♦♦2 
A (5,8) =AL (NE) **3 
A (6,5) =AL (NE) ♦*2 
A (6,6)=AL (NE) **3 
P8=Bl + 2. ♦B2=<'AL (NE) 

A (7,4) =AL (NE) *P8 
A (7,5)=2, *AL (NE) 

A (7,6)=3. *AL (NE ) **2 
A (7,7)=AL (NE) ♦♦2*P8 
A (7,8)=A1 (NE) **3^P8 
A (8,4)=1. 

A (8,5)=-AL(NF) **2*P8 
A (8,6) =-AL (Nf) **3*P8 
A (8,7) =2. *AL (NE) 

A (8,8)=3.*AL (NE ) **2 
CALL MINV (A,8,DET,LMI,MMI) 


QREn0730 

QEEM0740 

QREH0750 

QRBM0760 

QREM0770 

QREM0780 

QREH0790 

QREM0800 

QREH0810 

QREM0820 

QREH0830 

QREH0840 

QREH0850 

QREM0860 

QREM0870 

QREH0880 

QREH0890 

QREH0900 

QREM0910 

QEEK0920 

QREH0930 

QREH0940 

QREW0950 

QREH0960 

QREB0970 

QREn0980 

QREM0990 

QREH1000 

QREH1010 

QREH1020 

QREH1030 

QEEH1040 

QREM1050 

QREK1060 

QREM1070 

QEEH1080 


ORIGINAL PAGE IS 
OF POOR quality: 


128 


PHI=BZES+B1*SL+B2*SL**2 

PHIP=B1+2.*B2*SL 

YZET=0.0 

ZZET=0.0 

DO 104 JJ=1,N0GA 

P2=3ZER+B1^SL*AXG (JJ) +B2*(SL*AXG (JJ) ) **2+APHA 
YZET=YZET+COS (P2) *SL*AWG (JJ) 

104 ZZET=ZZET+SIN (P2) *SL*AWG (JJ) 

P3=YZBT*SIN (PHI+APHA) -ZZET^COS (PHU-APHA) 
P4=YZET*C0S (PHI+APHA) +ZZET+SIN (PHI+APHA) 

EIR (1 ,1)^SCTP+COS (PHI) **2+SCTY*SIN (PHI) 

ELP (2, 1)= fSCTP-SCTY) *COS (PHI) *SIN(PHI) 

ELR (3,1) =P3=*COS (PHI) ♦SCTP-P4*SIN (PHI) ♦SCTY 
ELR (4, 1)-=SL*COS (PHI) *3CTP 
ELR (5,1)=-SL**2*SIN(PHI) *SCTY 
ELR (6,1)=-SL**3»SIN (PHI) *SCT¥ 

ELR (7,1) =SL**2*COS (PHI) *SCTP 
ELR (8,1) =SL**3*COS (PHI) *SCTP 
ELR (2,2) =SCTP*SIN (PHI) ♦♦2 + SCTY*COS (PHI) ♦♦2 
ELR (3,2) =P3*SIN (PHI) *SCTP+P4*COS (PHI) ♦SCTY 
ELR (4,2) =SL*SIN (PHI) *SCTP 
ELR (5,2) =SL^'<'2*COS (PHI) ’►SCTY 
ELR (6,2) =SL**3 + CCS (PHI) *SCTY 
ELR (7 ,2)=SL*’^2*SIN (PHI) *SCTP 
ELR (8,2) =SL**3*SIN (PHI) ♦SCTP 
ELR (3, 3)=P3**2*SCTP+P4**2*SCTY+SCRP 
ELR (4,3)^P3*S1*SCTP + SLX'PHIP+SCRP 
ELR (5,3)=P4*SL**2*SCTY+2.*SL*SCRP 
ELR (6 ,3)=P4*SL’^*3*SCTY+3 .*SL^*2*SCRP 
ELR (7,3) = (P3*SCTP+PHIP*SCRP) ♦SL+*2 
ELR (8,3) = (P3^SCTF + PHIP*SCRP) ♦SL**3 
ELR (4,4) = (SCTP+FHIP**2*SCRP) ♦SL**2 
ELR (5,4) =2. *SL**2*PHIF*SCRP 
ELP (6,4) =3. ♦SL**3*PHIP*SCRP 
ELR (7,4) = (SCTP + PHIP**2*SCRP) *SL**3 
ELP (8,4) = (SCTP+FHIP**2*SCRP) *SL**4 
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ELS (5,5) = SL^*4*SCTY + 4. ♦SL**2*SCSP 
ELR (6, 5)=SL**5*SCTY+6.*SL**3*SCRP 
ELR (7,5) = 2. ♦SL**3*PHIP*SCRP 
ELR (8,5) =2.*SL**4*PHIP*SCRP 
ELR (6,6)=SL**6*SCTY+9.*SL**4*SCRP 
ELR (7,6)-=3.*SL*^4^PHIP^SCRP 
ELR (8,6) =3. *SL**5*PHIP*SCBP 
ELR (7 ,7) = (SCTE+PHIP**2*SCEP) *SL**4 
ELR (8,7) = (SCTP + PHIP**2*SCEP) *SL**5 
ELR (8,8) = (SCTP+PHIP*^2*SCRP) *SL**6 
DO 12 1=1,7 
IP1=I+1 
DO 12 J=IP1,8 

12 ELR (I, J)=ELR (J,I) 

DO 13 1=1,8 
DO 13 J= 1 , 8 
ELRR (1,0) =0. 0 
DO 13 K=1,R 

1 3 .ELER (I,J)=ELFR(I,J) +ELR (I,K) *A (K,J) 

DO 14 1=1,8 
DO 1 4 J= 1 , 8 
ELEP (I,J)=0.0 
DO 14 K=1,8 

14 ELEP (I,J) =ELEP(I,J) +A (K,I) *ELRR (K,J) 

IF (YK (NE) .EQ.0.0) GOTO 201 
CALL ROTAT (3.ELRP, DUMMY, NE) 

201 CONTINUE 

CALL ASSEM (NE , IK , ELEP, SPEIN , ICP, INUM) 

10 CONTINUE 

1 IF(NORU .EO.O) GO TO 4 

READ (MEEAD,3) SCTU, SCTM, SCRU, (NRST(I) ,NREU (I) ,I=1,NORO) 

3 FORMAT (3D15. 6/ (815) ) 

WRITE (MWRITE, 1 120) NOBD 

1120 FORMAT (//,' THE CONSTANTS FOR*, 13, » ELASTIC FOUNDATIONS ARE:*) 
WRITE (MWRITE, 777) SCTU,SCTW, SCRU 
WRITE(MWRITE, 1150) 
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1150 FORMAT (/,1 OX, 'FIRST ELEMENT' , lOX, • NUMBER OF ELEMENTS') 

WRITE (MWRITE,1 155) (NRST (I) ,NREU(I) ,I=1,N0RU) 

1155 FORMATC * , 13X,I3,24X,I3) 

DO 15 IQ=1,N0RU 
NSTAT=NRST (IQ) 

NEND=NREU (IQ) 

DO 16 IR-1,NEND 
NE= (NSTAT-1) +IH 
IF(NE ,GT. IK) NE=NE-IK 
L= MKE(NE) -1 
K1 = NVEC(NE,1) 

K2 = NVEC(NE,2) 

P5=Z (K2)-Z (K1) 

P6=Y (K2) -Y (K1) 

P7=ANG (K2 )-ANG(Kl) 

IF(YK(NE) .EC. 1.0) P7=ANG(K2) - ROT (L, 2) -ANG (Kl) 

IF (YK (NE) .£0.1 .0. AND. ROT (L,1) .EQ.0.0) P7 = ROT (L,2) +ANG (K2)--ANG (Kl) 
IF (YK(NE) .EO.2.0) P7= ANG(K2)- DROT(NE) - ANG(Kl) 

IFfYK(NE) .EQ.3.0) P7=R0T (L, 2) +ANG (K2) -DROT (NE) - ANG (K1 ) 

PIE= 3. 141592653589793D+00 
PIE2= 2.0*PIE 
PIE32= 1.5 *PIE 
ANG2=ANG (K2) 

ANG1 = ANG (K1) 

IF (YK (NS) . BQ. 1.0. AND. ROT (L , 1 ) . EQ. 0. 0) ANG (K2) =ROT (L, 2) ♦ANG(K2) 

IF (YK(NE) .EQ.1 .O.AND.ROT (L , 1) . EQ. 1 .0) ANG ( K 1) =ROT (L ,2) -t-ANG (K1 ) 
IF (YK (NE) . EQ.2.0) ANG (Kl ) = DROT (NE) +ANG(Kl) 

IF (YK (NS) . EQ.3.0) ANG(K2)= HOT (L, 2) +ANG (K2) 

IF (YK(NE) .SO.3.0) ANG(K1)= DROT(NE) + ANG (Kl) 

APHA = PIE / 2.0 
IF (P5.LT.0.0) APHA= -APHA 
IF(P6.NE.0.0) APHA= ATAN (P5/P6) 

IF (P6. LT.O. 0.AND.P5.LT.0.0) APHA=APHA-PIE 
IF(P6.LT.0.0 .AND. P5.GE.0.0) APHA=APHA+PIE 
BNG (NE + 1) =ANG (K2 ) 

BNG (NE)=ANG (K1) 
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IF (P7.GT. {PIE32 ) . AND. APHA .IT. 0 . 0) BNG (N E+ 1 ) =ANG (K2) -PIE2 
IF (P7.GT. (PIE32 ) .AND.AFHA.GT 4 O, 0) BNG (NE)=ANG (K1) 4PIE2 
IF (P7.LT. (-PIE32 ) . AN D. APHA .GT. 0 . 0) BNG (NE+1) = ANG (K2) +PIE2 

IF(P7.LT. (-PIE32 ) .AND. APHA. LT.0.0) BNG (NE) =ANG (K1) -PIE2 
BZER=BNG (NE) -APHA 

B1= (~2.*BNG (NE+1) -4.+BNG (NE) +6 . ♦APHA ) /AL (NE) 

B2= (3. ♦BNG (NE+1) +3. ♦BNG (NE) -6. ♦APHA) /AL (NE) **2 
ANG(K2)= ANG2 
ANG(K1)= ANG1 
DO 401 1=1,8 
DO 401 J=1,8 
401 A(I,J)=0.0 

A(1,1)= COS(BNG(NE)-APHA) 

A(1,2)= SIN (BNG (NE) -APHA) 

A (2, 1) =-SIN (BNG (NE) -APHA) 

A (2,2)= COS (BNG (NE)-APHA) 

A (3,3)=1. 

A (5,1) =COS (BNG (NE+1) -APHA) 

A (5,2)=SIN (BNG(NE+1) -APHA) 

A (5,3) =P6^SIN (BNG(NE + 1) ) -P5^COS (BNG (NE+1) ) 

A (6,1) =-SIN (BNG (NE+1) -APHA) 

A (6,2) =COS(BNG(NE+1) -APHA) 

A (6,3)=P6^COS (BNG (NE+1) ) +P5*SIN (BNG (NE+1) ) 

A (7,3)=1. 

A (4,4) =1. 

A (5,4) =AL (NE) 

A (5,7) =AL (NE) ♦♦2 
A (5,8) =AL (NE) ^ + 3 
A (6 ,5)=AL (NE) ♦♦2 
A (6,6)=AL (NE) **3 
P8=B1+2.^B2^AL(NE) 

A (7,4)=AL (NE) ♦P8 
A (7,5)=2. ♦AL (NE) 

A (7,6)=3. ♦AL(NS) ^^2 
A (7,7) =AL (NE) ♦♦2^P8 
A (7,8)=AL (NE) **3*P8 
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A(8,4)=1. 

A (8,5)=-AL(NE)**2*P8 
A (8,6) =-AL (NE) **3*P8 
A (8,7)=2. *AL (NE) 

A (8,8)^3. *AL (NE) **2 
CALL MINV (A,8,DET,Lf1I,MMI) 

DO 102 1=1,8 
DO 102 J=1,8 
102 ELS (I ,J) =0.0 

DO 103 J=1,NOGA 
Z£T=AL (NE) ♦AXG (J) 

PHIP=BU2.*B2*ZET 
PHI=BZEE+B1*ZET+B2*ZET**2 
WET=AL (NE) ♦AWG(J) 

YZET=0.0 

ZZET=0.0 

DC 105 JJ=1,NCGA 

M P2=BZER+B1*ZET*AXG (JJ) +B2* (ZET*AXG (JJ) ) **2+APHA 

w YZET=YZET+COS (P2) *ZET*AHG (JJ) 

105 ZZET=ZZET+SIN (P2) *ZET*AHG (JJ) 

P3=YZET*SIN (PHI+APHA) -ZZET+COS (PHI + APHA) 

PU=YZET*COS (PHI+APHA) +ZZET*SIN (PHI+APHA) 

ELS (1 , 1) =ELR (1,1) + (SCTO*COS (PHI) **2 + SCTH=*'SIN (PHI) ** 2 ) ^WET 
ELS (2, 1) =ELR (2,1) + ( (SCTU-SCT¥) *SIN (PHI) *COS (PHI) ) *HET 
ELS (3, 1) =ELR (3,1) + (P3 + SCT(J*C0S (PHI) -P4*SCTH»SIN (PHI) ) 

ELS (5,1) =ELS (5,1 ) « (ZET**2*SCTH*SIN (PHI) ) ♦«£! 

ELS (6,1)=ELB (6,1) (ZEI**3*SCTW*SIN (PHI) ) *MET 
ELR (2,2) =ELR (2,2) + (SCTU^SIN (PHI) ♦♦2 + SCTM*COS (PHI) **2) *HET 
ELR (3,2) -SLR (3 ,2) + (P3*SCTU*SIN (PHI) +P4*SCTW*COS (PHI) ) *WET 
ELR (5,2)=ELR (5,2) ♦ (ZET**2*SCTH*COS (PHI) ) 

ELR (6,2) =ELR (6,2) + (ZET*»3*SCTH*COS (PHI) ) *HET 
ELS (3,3) =ELB (3,3) + (P3**2*SCTU+P4**2*SCTH+SCRU) *HET 
ELH (5 ,3)=ELR (5,3)+ (P4*SCTH*ZET**2 + 2. 0*SCSa*ZET) *HET 
ELR (6,3) =ELR (6,3) + (P4*SCTH=«'ZET»*3 + 3 . 0*SCRU*ZET**2) *HET 
ELR (5,5)=ELR (5,5) + (ZET**4*SCTW+-4. 0»ZET**2*SCE0) *HET 
ELR (6,5) =ELR (6,5) + (ZET*’<'5*SCTH+6 . 0*ZET**3*SCRU) *MET 
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EIR (6,6)=ELE (6,6) + (ZET**6*SCTW+9, 0*ZET**4*SCHU) ♦MET 
ELE (4,1) =ELR{4, 1) +ZET*COS (PHI) ♦SCTD*MET 
ELR (7, 1) =ELR (7 , 1 ) +ZET**2 *COS (PHI) ♦SCTU^MET 
ELR (8,1)=ELR(8,1) ♦ ZET^*3*C0 S (PHI) *SCTU^HET 
ELE (4,2) =ELB (4,2) +ZET*SIN (PHI) ♦SCTU^HET 
ELE (7,2) =ELE (7,2) +ZET**2*SIN (PHI) ♦SCTD^HET 
ELR (8,2)=ELR (8,2) ♦ZET**3*SIN (PHI) ♦SCTD*MET 
ELR (4,3)=ELR (4,3)+ (P3^SCTD + PHIP^SCE0) ♦ZET*HET 
ELR (7, 3)=ELR (7, 3) + (P3 ♦SCTU + PHIP^SCEU) *ZET**2*HET 
ELR (8 , 3) =ELE (8,3) + (P3*SCTU+PHIP*SCRU) ♦ZET**3*HET 
ELR (4,4) =ELR (4, 4) + (SCTU+PHIP**2*SCRU) *ZET**2*MET 
ELR (5,4)=EIR (5,4) +2. ♦ZET*»2*PHIP*SCRU*MET 
ELE (6,4) =ELR (6,4) +3 . ♦ZET^*3*PHIP*SCRU*WET 
ELR (7,4) =ELR (7,4) + (SCT0 + PHIP**2*SCR0) ♦ZET^*3*MET 
ELR (8,4) =ELR (8,4) + (SCTU + PHIP**2*SCRU) ♦ZET*»4*HET 
ELR (7,5) =ELR (7,5) +2. ♦ZET**3*PHIP^SCRU+WET 
ELR (8,5) =ELR (8,5) +2. ♦ZET**4*PHIP^SCR0*WET 
ELR (7,6)-=ELR (7,6) +3 . *ZET**4*PHIP^SCRU*WET 
ELR(8,6)=ELR (8,6) +3 . ♦ZET^^5*PHIP^SCRU*MET 
ELR (7 ,7)=EIR (7,7) + (SCTU+PHIP^*2*SCSU) ♦ZET**4*MET 
ELE (8,7) =ELR (8,7) + (SCTD+PHIP*^2^S€RU) ♦ZET^+5*W£T 
ELR(8,8)=ELS (8,8) + (SCTU+PHIP^*2*SCRU) ♦ZET**6*iET 

103 CONTINUE 

DO 5 1=1,7 
IP 1=1+1 
DO 5 J=IP1,8 

5 ELR (I, J) =ELR (J,I) 

DO 6 1=1,8 

DO 6 J=1,8 
ELRR (I,J)=0. 0 
DO 6 K=1,8 

6 ELRR (I,J)=ELRP(I,J) +ELR(T,K) *A(K,J) 

DO 7 1=1,8 

DO 7 J=1,8 
ELRP (I,J) =0.0 
DO 7 K=1,8 


QREW2890 

QREH2900 

QREH2910 

QREH2920 

QREM2930 

QREM2940 

QREH2950 

QREH2960 

QEEM2970 

QREH2980 

QREH2990 

QREH3000 

QREH3010 

QREH3020 

QREH3030 

QREH3040 

QREM3050 

QREM3060 

QREM3070 

QREB3080 

QREH3090 

QREH3100 

QREH3110 

QBEB3120 

QREB3130 

QEEM3140 

QREn3150 

QREM3160 

QREH3170 

QREM3180 

QEEH3190 

QSEH3200 

QREM3210 

QREH3220 

QREH3230 

QREM3240 


original page I<5 

OF. POOR QUAUT^ 


134 


7 BLEP(I,J)=ELHP(I,J)+A(K,I)*ELRS(K,J) QSEn3250 

IF(YK(NE) .EC.0.0) GOTO 202 QREH3260 

CALL ROTAT (3,ELBP,DUI!My,NE) gREf!3270 

202 CONTINUE QREH3280 

16 CALL ASSEM (NE,IK, ELRP,SPfiIN,ICP,INUM) QRBM3290 

15 CONTINUE QREH3300 

4 RETURN QREW3310 

end QREH3320 
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SrjBROrjTINE ROTAT (lUD, ELM , £L V , IE) 

C THIS SUBBOUTINE TRANSFORMS MATRICES FROM ELEMENT SYSTEMS TO THP 
C GLOBAL SYSTEM AND VICE-VERSA. IND •= 1 FOR GLOBAL VECTOR INTO 
C ELEMENT VECTOR, IND-=2 FOR ELEMENT VECTOR INTO GLOBAL VECTOR, IND = 
C FOR ELEMENT MATRIX INTO GLOBAL SYSTEM 

C ELM IS THE MATRIX TO BE TRANSFORMED, ELV IS THE VECTOR TO BE 
C TRANSFORMED, WHILE IR IS THE ELEMENT NUMBER YK, ROT, AND DROT USED 
C BELOW, INDICATE WHETHER A BRANCH OR A DISCONTINUITY IS BEING CCN- 
C SIDERED AND WHAT THE ANGLE OF ROTATION IS. 

IMPLICIT RBAL+8 {A-H,0-Z) 

DIMENSION EIM{8,8) ,ELV(8) ,TR{4,4) ,TRAN(8,8) , WORK (8) ,BLRR(8,8) 
COMMON /BOTIN/ YK (51) , NBCCNB ,NBCB (7) ,NODBB(7) ,MK (51) ,RCT (5,2) 
*,XDIST (6) ,DRCT (50) ,NCDP(6) 

COMMON /TAM/ MKE(51) 

COMMON /BR/ NVEC(51,2), 1MT(51) 

COMMON /TAPE/ MREAD, M WRITE, MPUNCH 
COMMON /TIME/ IT 
SIN (Q)=DSIN (Q) 

COS (Q) =DCOS (Q) 

ATAN (Q) =DATAN (Q) 

ABS (Q)^DABS (Q) 

SORT (Q) =DSQRT (C) 

DO 1100 1-1,4 
DO 1100 J = 1,4 
1100 TR (I,J) =0.0 
TR(3,3) = 1.0 
TP(4,4) = 1.0 
MOP = MKE (IR) -1 
DO 1110 J = 1,8 
DO 1110 K = 1,8 
1110 TRAN(J,K) = 0.0 
DC 1115 J= 1,8 
1115 TRAN (J,J) = 1.0 
ANGK= DROT(IR) 

IF (YK (IR) . EQ. 1 .O.OR.YK (IP) .EC.3.0) ANGK=RCT (MOP, 2) 

TE(1,1) = DCOS(ANGK) 
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TE (1 ,2) = DSIK (ANGK) 

TR(2,1) = -DSIN(ANGK) 

TR(2,2) = DCOS(ANGK) 

IF(YK{IR) .EQ.2.0) GOTO 1120 
IF (EOT {WOP, 1) .NE. 0.0) GO TO 1120 
DO 1130 J = 5,8 
DO 1130 K = 5,8 
1130 TRAN(J,K) = TP(J-a,K-4) 

TRAN (5,7) = XCIST(MOP)* TB(1,1) 
TRAN(6,7) = XDIST(MOP) * TR(2,1) 
GOTO 1150 

1120 DO 1140 J = 1,4 
DO 1140 K = 1,4 
1140 TRAN(J,K) = TR(J,K) 

IF(YK (IR) . EQ.2.0) GO TO 1150 
TEAN(1,3) = XDIST(MOP)* TR(1,1) 
TRAN (2,3) = XDIST(MOP) * TR(2,1) 
1150 CONTINOE 

IF(YK(IR) .NE.3.0) GOTO 3000 
ANGZ=DROT(IE) 

TRAN (1,1) = DCCS(ANGZ) 

TRAN(1,2) = DSIN(ANGZ) 

TBAN(2,1) = -DSIN(ANGZ) 

TRAN (2,2) - DCOS(ANGZ) 

3000 CONTINUE 

IF(IND.EQ.3) GOTO 800 
IF(IND.EQ.I) GOTO 100 
DO 210 1=1,8 
DO 210 J=1,8 

210 ELBE (I, J) = TRAN (J, I) 

DO 215 1=1,8 
DO 215 J= 1,8 
215 TRAN (I, J) = ELRR(I,J) 

100 CONTINUE 
110 CONTINUE 

DO 1160 I = 


1,8 
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WORK (I) =0.0 
DO 1160 J = 1,8 

1160 WORK(I) = WORK (I) -*• TRAN (I, J) * ELV(J) 

DO 1170 1= 1,8 

1170 ELV(I) = WORK(I) 

RETURN 

800 CONTINUE 

DO 2160 I = 1,8 
DO 2160 J = 1,8 
ELRR(I,J) =0.0 
DO 2160 K = 1,8 

2160 ELRR(I,J) = ELRR(I,J) + ELM (I,K) *TRAN (K,J) 
DO 2170 1= 1,8 
DO 2170 J= 1,8 
ELM (I,J) = 0.0 
DO 2170 K = 1,8 

2170 ELM(I,J) = ELM(T,J) ♦ TRAN (K, I) * ELER(K,J) 
RETURN 
END 
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SUBHODTINE SOLV (STIFM ,G , SOL, NCO L, K ROW , NDEX , NEO WS, NIRREG) 
C SOLVE (LL*) (SCL) = (FORCE) FOR DISPLACEMENTS (SOL) 

IMPLICIT BEAL*8 (A-H,0-Z) 

DIMENSION STIFM(I) ,G (1) ,SOL(1) , NCOL ( 1 ) , KBO H ( 1 ) , KDEX ( 1 ) 

C INTERMEDIATE SOLUTION USING THE LOWER TRIANGLE 

100 INDEXED 
SQL(1)=G(1) 

DO 104 I=2,NFGWS 
IM1=I-1 
SUM=0. 0 
K=NCOL(I) 

INDEX=INDEX+I-K 
IF (IMI-K) 103,101,101 

101 DO 102 J=K,IM1 
IJ=INDEX+J 
SU=SOL(J) 

102 SUH=SUM+STIFM (IJ) *SU 

103 II=INDEX+I 

104 SOL (I) = G (I) -SUM 

C SOL CONTAINS THE INTERMEDIATE SOLUTION 

C COMPLETE THE SOLUTION USING THE UPPER TRIANGLE 

SOL (NROWS) =SOL (N BOW S) /STIFM (II) 

INDEX=INDSX-NEOWS + NCOI (NROWS) 

IF (NIEREG .GT. 0) GO TO 111 

DO 109 KK=2,NPCWS 

I=NROWS+1-KK 

IP1=I+1 

SUM=0.0 

JNDEX=INDEX+I 

DC 107 J=IP1, NROWS 

K-NCOL ( J) 

IF (I-K) 108,106,106 

106 JNDEX=JNDEX*J-K 
SU=SOL (J) 

107 SUM=SUM+STIFM (JNDEX) *50 

108 II=INDEX+T 
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SOLV0240 

SOLV0250 

S0LV0260 

SOLV0270 

SOLV0280 

SOLV0290 

SOLV0300 

SOLV0310 

SOLV0320 

SOLV0330 

S0LV0340 

SOLV0350 

SOLV0360 
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SOL(I)= S01(I)/STIFM (II) -SUM 
109 INDEX=INDEX-I+NCOL(I> 

PETURN 

111 IF (NIEREG-NEOHS /2) 116,116,112 

C TOvO MANY IRREGULAR ROWS FOR ACCELERATED SOLUTION 

112 DO 115 KK=2,NRCWS 
I=NEOHS+1-KK 
IP1=I+1 
JNDEX=INDEX+I 
SUM=0. 0 
JNDEX=INDEX+I 

DO 114 J-IP1,NBOWS 
K=NCOL (J) 

JNDEX=JNDEX+J-K 
IF (I-K) 114,113,113 
113 SU=SOL(J) 

SUM=SUH+STIFM ( JNDEX) *SU 

114 CONTINUE 
II=INDEX+I 

SOI(I)- SCL(I)/STIFM (II) -SUM 

115 INDEX=INDEX-I-»-NCCL (I) 

RETURN 

C ACCELERATED SOLUTION FOR CASE WITH IRREGULAR BOWS 

116 DO 125 KK=2,NECWS 
I=NPOHS+1-KK 
IP1=I+1 

SUM=0. 0 
NCK=0 

JNDEX=INDEX+I 

117 DO 119 J=IP1,NEOWS 
K=NCOI(J) 

IF (I-K) 120,118,118 

118 JNDEX=JNDEX+J-K 
SU=SOL (J) 

119 SUM=SUM*STIF« (JNDEX) *SU 
GO TO 124 
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120 NCK=NCK+1 

IF (NIRREG-NCK) 124,121,121 

121 IP1=KPOW (NCK) 

IF (I-NCOl(IPI)) 120,122,122 

122 IF (IP1-J) 120,123,123 

123 JNDEX=NDEX (NCK) 

GO TO 117 

124 II=INDEX+I 

SOL (I) = SOI (I) /3TIFH (II) -SOM 

125 INDEX=INDEX-I+NCOL (I) 

P.ETORN 

END 


SOLV0730 

SOLV0740 

SOLV0750 

SOLV0760 

SOLV0770 

SOLV0780 

SOLV0790 

SOLV0800 

SOLV0810 

SOLV0820 

SOLV0830 

SOLV0840 



SUBROUTINE STRESS (DELf AT , ASFL,GZETA, SNS,SNP,NV1 ,NV2, NV3) STES0010 

TO EVALUATE GENERALIZED NODAL LOAD VECTOR DUE TO LARGE DEFLECTIONSTRS0020 


AND ELASTIC-PLASTIC STRAIN STRS0030 

IMPLICIT REALMS (A-H,0-Z) STRS0040 

DIMENSION ASFL (NV 1 , 3, NV2, NV3) ,GZSTA (NV1 ,3,NV2) ,SNS (N V 1 , 3 , NV2 ,NV3) STRS0050 
a,SNP (NV1 ,3,NV2,NV3) STES0060 

DIMENSION DISM(8) ,DELM(8), DUMMY (8,8) STRS0070 

DIMENSION ELFP(8) ,BEPS(3) ,CEPS(3,3) ,BINPH(3) ,BlnPR(3) ,H¥B(3,3) , STHS0080 
*PN (8) ,PM (8) ,HNL (8) ,BINFP (3) ,BIMPP(3) STRS0090 

COMMON /FG/ IK,IKK,IC?,LREF,NOGA,NFL,NI,ICOL(205) ,INUM(205) STRS0100 

♦,NBC0ND,NBC(7) , NODES (7) ,KROH(8) ,NDEX(8) ,NIRREG STRS0110 

COMMON /TAPE/ MREAD, MRFITE, HPUNCH STRS0120 

COMMON/MAT/YGUNG (3,6) ,DS{3,6) ,SNO (3,5,6) ,NSFL (3,6) ,P (3,6) ,NLAY STRS0130 
COMMON/VQ/ FLVA (205) ,DISP (205) , DELD (205) ,BINP (50,3) ,BIMP (50,3) STRS0140 

COMHON/BA/ BEP(50,3,3,8) ,AL(50) ,AXG(3) , AWG(3) , RET (50,3) , STRS0150 

*CE1 (50,3) , CE2 (50,3) ,CE3 (50,3) ,CM1(50,3) ,CM2 (50,3) ,CM3 (50,3) STES0160 

COMMON/BOUN/YK (51) , NBCONB, NBCB (7) ,NODBB(7) ,HK(51) ,ROT (5,2) STRS0170 

♦,XDIST (6) ,DPOT (5 0) ,NODP (6) STRS0180 

COMMON/BR/ NVEC(51,2), LMT(51) STRS0190 

COMMON /TAM/ MKE(51) STRS0200 

ABS (0) =DABS (0.) STRS0210 

DO 502 IE=1,IK STES0220 

K1= NVEC(IR,1) STRS0230 

K2= NVEC(IR,2) STRS0240 

DO 8000 K^1,8 STRS0250 

INDEX= (K1-D+4+K STRS0260 

IF(K.GT.4) INDEX= (K2-1)*4+K-4 STRS0270 

DISM(K) = DISP (INDEX) STES0280 

DELM(K) = DELD (INDEX) STRS0290 

8000 CONTINUE STRS0300 

IF (YK (IR) .EQ.O.O) GOTO 1010 STRS0310 

CALL ROTAT(1, DUMMY, DISM,IR) STRS0320 

CALL ROTAT(1 , DUMMY, DELM,IR) STRS0330 

1010 CONTINUE STRS0340 

IP=MKE(IR) STRS0350 

NIAP=NLAY STRS0360 
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IF (MKE (IB) .GT. 1) NLAP=1 
DO 503 J=1,NOGA 
BINP (1R,J)=0. 

BIMP (IB, J) =0. 

BINPP (J) =0.0 
BIMPP(J) =0.0 
202 DO 402 1=1,3 
BEPS (I)=0. 

BO 402 K=1,3 

402 BEPS (I)=BEPS(I) +BEP(IB,J,I,K) *DEL«(K) 

DO 403 1=1,3 

CEPS (J,I)=0,0 
DO 403 K=1,B 

403 CEPS (J,I) =CEPS (J, I) +BEP (IR,J,I,K) *DISM (K) 

205 FARE=BEPS (1) +CEPS (J,2) ♦BEPS (2) -BEPS (2) ♦♦2/2. 

♦+CEPS (J, 1) ♦BEPS (1) -BEPS (1) ♦♦2/2. 

FCUB=BEPS (3) 

DO 151 M=1,NLAP 
NSPL«= NSFL(M,IP) 

DO 151 N=1,NFL 
K=W+ (M-1) ♦NFL 
BFNP=0. 

BFNPP=0.0 

BEPX=FARE+GZETA (IR, J,K) ♦FCUS 
BFACTR=1. 

IF (DS (M,IP) .EQ.O. 0) GO TO 1000 

51 = 1.0/P(B,IP) 

52 = 1. 0/DS (M, IP) /DELTA! 

RFACTR = 1.0 + (S2^ABS (BEPX) ) ♦♦SI 
1000 CONTINUE 

DO 35 L=1,NSFLf1 
DESNP=0,0 

SNS (IR,J,K,L) = SNS (IR,J,K,L) ♦ YOONG (M , IP) ♦ BEPX 
SNY=SNO (M,L,IP) ♦RFACTR 
IF (SNS (IR, J,K,L) -SNY) 30,301,20 
DESNP=SNS (IR,0, K,L) -SNY 


20 
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SNS (IB ,J, K,l) =SNY 
GO TO 301 

30 IF (SNS (IB, J,K,L) +5 NY) 40,301,301 
40 DESNP=SNS (IR,J,K,L) +SNY 

SNS (IR,n,K,l)=-SNY 

301 BFNP=BFBP + SNS (IE, J,K,L) *ASFL (IR, J,K,L) 

SNP (IR, J,K,1) =SNP(IR, J, K,L) +DESNP 
BFNPP=BFNPP+SNP (IR,J,K,L) *ASFL (IR,J,K,L) 

35 CONTINUE 

BINP (IR,J) =BINP (IR, J) +BFNP 

BIHP (IR, J) =BINP (IE, J) +BFNP*GZETA (IR, J,K) 

BINPP (J) =BINPP (J) +BFNPP 

BIMPP (J) =BIMPP (J) +BFNPP*GZETA (IR, J,K) 

151 CONTINUE 
503 CONTINUE 
107 DO 101 J=1,NOGA 

BINPW (J) = (CE1 (IR, J) * (CEPS (J, 1) ♦♦2/2.+CEPS (J,2) *♦2/2.) 

♦-BINPP (J) ) *W£T (IR, J) 

BIMPW (J) = (CE2 (IP, J) *(CEPS (J, 1) **2/2,+CEPS (J,2) **2/2. ) 

♦-BIMPP (J) ) *WET (IR,J) 

HWB (J,1) = (CEI (IR,J) *(CEPS (J,1) +CEPS (J,2) **2/2-+CEPS (J,1)**2/2.) 
♦ +CE2 (IR,J) *CEPS (J, 3) -BINPP (J) ) *CEPS (J, 1) *WET (IR, J) 

HWB (J,2)= (CEI (IF.,J) * (CEPS (J,1) +CEPS (J,2) **2/2.+CEPS (J, 1) **2/2.) 
♦+CE2 (IR,J) *CEPS(J,3)-BINPP(J) ) *CEPS(J,2) *WET-(IE,J) 

101 CONTINUE 

DO 102 1=1,8 
PN(I)=0, 

PM (I) =0. 

HNL (I) =0.0 
DO 102 J=1,NOGA 

PN (I)-=PN (I) +BEP (IR, J, 1,1) *BINPW (J) 

PM (I) =PM (I) +BEP (IR, J, 3,1) *BIMPW (J) 

102 HNL (I) =HNL (I) +BEP (IR, J,2,I) *HWB(J,2) ^BEP (IE,J, 1,1) *HWB(J, 1) 

200 DO 105 1=1,8 

105 ELFP (I) =PN (I) +PM (I) +HNL (I) 

IF ( YK (IR) .EQ. 0. 0) GO TO 502 
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CALL E0TAT(2, DUMMY, ELFP, IE) 
502 CALL ASSEF (IB,IK,ELFP,?LVA,ICF) 
SETUFN 
END 


STES1090 

STRS1100 

STBS1110 

STES1120 
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SUBROUTINE TSTEP (AMASS, STIFK, DELTAT) 

C TO FIND DEITAT IF IT IS NOT SPECIFIED 

IMPLICIT REALMS (A-H,0-Z) 

DIMENSION AMASS (1) , STIFF (1) , TRIAL (205) ,VMULT(205) ,VECTR(205) 
COMMON /FG/ IK,IKK,ICPrLBEF,NOGA,NFL,NI,ICCL(205) ,INUM(205) 
*,NBCOND,NBC(7) ,NOD£B(7) ,KROW{8) ,NDEX(8) ,NIRREG 
COMMON/MAT/yOUNG (3,6) , DS (3,6) ,SNO (3,5,6) ,NSFL(3,6) ,P (3,6) ,NLAY 
CCMiMON /TAPE/ MREA D, H WRIT E , MPUNCH 
ABS (Q) =DABS (Q) 

SORT (Q) =DS0RT (Q) 

INT (Q) =IDINT (Q) 

DO 3 K=1,NI 

3 TRILAL (K) =1. 0 

IFdHBCOND .EQ. 0) GO TO 90 

DO 91 I=1,NBCGND 

JT4-NODEB (I ) *U 

JT4M3=JT4“3 

JT4H2=JT4-2 

JT4M1=JT4-1 

TRIAL (JT4M3)=0.0 

IF (NBC (I) .EQ. 1 .OS. NEC(I).EQ.2) TRIAL (JT4M 1) =0. 0 
IF (NBC (I) .EQ. 2 .OR. NBC(I).EQ.3) TRIAL (JT4 M2) =0. 0 
91 CONTINUE 

90 MRANK=NI 

BONE=0. 

EPSLN=1.0E-07 
2 BOL,D=1.0 

DC 14 KKK=1,4 
DO 12 LLL=1,50 
DO 4 1=1, MEAN K 

4 VMULT(I)=0.0 

CALL OMULT ( STIFK,T RI AL , ICOL , NI, VMULT, KROH, NDEX,NIRHEG) 

CALL 50LV (AM ASS, V MOLT, VECTR, ICOL, KROH, NDEX,NI,NIRREG) 

BNEH=-1. 

DO 6 K=1,HRANK 

IF(BNEW- ABS (VECTR (K) )) 60,60,6 
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60 

BNE«= ABS (VECIR (K) ) 


TSTP0370 

6 

CONTIHOE 


TSTP0380 


DO 7 K=1,MEANK 


TSTP0390 


IF(BN1W- ABS (VECTR (K) )) 7,8,7 


TSTP0400 

7 

CONTINUE 


TSTP0410 

fl 

HEO¥=K 


TSTP0U20 


BNE¥=VECTB (K) 


TSTP0430 


DO 9 K=1,HEANK 


TSTP0440 

9 

TRIAL (K) =VECTE(K)/BNEM 


TSTP0450 


IF ( ABS (BNEW/BCLD-1. 0)-EFSLN) 15, 15, 10 


TSTP0460 

C 

ITESATICN 


TSTP0470 

10 

BKTH=BOLD 


TSTP0480 


BOLD=BNE» 


TSTP0490 

12 

CONTINUE 


TSTP0500 


EPSLN=EPSLN*10. 


TSTP0510 

14 

CONTINUE 


TSTP0520 

C 

NOT CONVERGING AFTER LL*KK ITERATIONS 


TSTP0530 


EPSLN=1. 0 


TSTP0540 


EONE^BNEW 


TSTP055Q 


GO TO 32 


TSTP0560 

C 

EIGEN VALUE FCUND 


TSTP0570 

15 

BONE=BNEH 


TSTP0580 

32 

CONTINUE 


TSTP0590 


FEEQ^ SORT (BONE) 


TSTP0600 


FACTCL^I. 


TSTP0610 


BELT AN=EACTCL*2. /FREQ 


TSTP0620 


MP=0 


TSTP0630 

20 

DELTAN=DELTAN*10. 


TSTP0640 


MP=MP+1 


TSTP0650 


IF (DELTAN.LT. 10. ) GO TO 20 


TSTP0660 


DELTAN= INT(DEITAN) *10.** (-HP) 


TSTP0670 


WRITE (MWRITE,25)FREQ 


TSTP0680 

25 

FOR{1AT(/,» HIGHEST NATURAL FREQUENCY (RAD/SEC) 

=*,E17.8) 

TSTP0690 


WRITE (HMRITE, 500) DELTAN 


TSTP0700 

500 

FCRKAT (' ODFLTAT SHOULD BE EQUAL TO OR LESS THAN*, 

D15.6) 

TSTP0710 


IF(DELTAT. EQ.0.0) DELTAT =DEITAN 


TSTP0720 
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RETURN 

END 


TSTP0730 

TSTP0740 
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6.2 Additional Subroutines Needed for JET 5A 
These five (5) siibroutines consist of; 

MAIN 

IMPULS 

L0ADEQ 

LOADFT 

PRINT 

and are listed in the following; 
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C 

c 

c 

c 


(C) COPYRIGHT 1978 MSSACHUSETTS INSTITUTE OP TECHNOLOGY 
JET 5A HAIN PROGRAM FOR VARIABLE THICKNESS ARBITRARILY CURVED 
MULTILAYER RING 
JET 5 A HOUBOLT OPERATOR 
IMPLICIT REAL+8 (A-H,0-2) 

DIMENSION ASFL{20, 3, 8 , 3) , GZBT A (20 , 3 , 8),SNSC20,3, 8,3), 
a SNP(20, 3, 8,3) , ASP (2 0,3 ,8) ,DEP (2 0,2 ,3 ,8) 

DIMENSION STIFK (14001 , SPBIH (1400) , AMASS (1400) ,QDD (20 4) ,REACM(1400) 
S,REACK (1400) , REAC(21), REAFM (205) , REAFK (205) 

DIMENSION EPL2(3) , EPL1 (3) , DISM3 (205) 

DIMENSION TXG(6) ,THG(6) , ES(3,6,6) ,FMECH (205) 

DIMENSION DDELD (205| ,DISOH (205) ,DIS (205) ,DISM1 (205) ,DISl!2 (205) , 
*FLR (205) ,FLN (205) ,FLVM(2 05) 

'^,BHASS (1400) ,EH(3) ,HZ (3) ,HRSF(50, 3,3) 

DIMENSION BEPS(3,3),EPI(3) ,EPO(3) 

DIMENSION HDIF(3) 

DIMENSION HNIN (51) ,RMASS (51 ) ,UDOT (3) ,WDOT (3) ,ADOT (3) 

DIMENSION EFLN(6) 

DIMENSION DENS (3,6) ,B (6) ,EPS (3 ,5 ,6) ,SIG(3,5,6) 

NSBS (50) ,NSEL(50) ,AEPS(3) 

DISM(8) ,DELM(8), DDMMY(8,8) 

BIGA (6) ,BTIMA (6) ,IBIGA (6) ,ISTAA(6) ,ISDRA(6) 

BI (6) , BTIM{6) ,IBI(6) ,ISOR (6) , ITHR(51) 

BIG(6) ,BTIHE(6) ,IBIG(6) ,ISURF (6),ISTA(6) 


DIMENSION 
DIMENSION 
DIMENS ION 
DIMENSION 
COMMON/SC/ 


COMMON/HAT/YOONG (3,6| ,DS(3,6) , SNO (3,5,6) ,NSFL (3,6) ,P (3,6) ,NLAY 
COMMON/A DSP/ AZET (50) ,ASP (50) ,YSP(50) ,2SP(50) ,LKK(50, 11) 
COHMONAQ/ FLVA (205), DISP(205) ,DELD (205) , BINP (50,3),BIMP (50,3) 
COMMON /FG/ IK,IKK,ICP,LREF,NOGA ,NFL,NI,ICOL (205) ,INUM (205) 
*,NBCOND,NBC(7) , NODEB (7) , KROW (8) , NDEX ( 8) , NIRR EG 
COMMON /EP/ EPSI (5 0) ,EPSO (50) 

COMMON /TAPE/ MREAD, MHRITE, MPONCH 
COMMON/FC/ Y(51),Z(51), ANG(51) ,H(51,3) 

COMHON/BA/ BEP (50,3,3,8) ,AL(50) , AXG (3) , AHG (3) , NET (5 0,3) , 

-CE1 (50,3) ,CE2(50,3) ,CE3(50,3) , CM 1 (50, 3) ,CM2 (50,3) ,CM3 (50,3) 

COMMON /FORCE/ T1 , AMP1FV , AMP1 PH, T2, A HP2 FV, A MP2F H, SLOPE V, SLOPE H, 
*AMPFV,AMPFH,ETA (4) ,RTOY(4) ,RTOH(4) ,RT0 2V (4) ,RT02H (4) ,RT03V (4) , 


MAINOO 10 
MAIN0020 
MAINOO 30 
MAINOO 40 
MAIN0050 
MAIN0060 
HAIN0070 
MAIN0080 
MAIK0090 
MAIN0100 
HAIN01 10 
MAIH0120 
MAIN0130 
MAIN0140 
MAIN0150 
HAIN0160 
MAIN0170 
MAIN01 80 
MAIN0190 
MAIN0200 
MAIN0210 
MAIN02 20 
MAIN0230 
MAIN0240 
HAIN0250 
MAIN0260 
MAIN02 70 
MAIN02d0 
HAIN02 90 
MAIN0300 
HAIN0310 
MAIN0320 
MAIN0330 
HAIN0340 
MAIN 03 50 
MAIN0360 


ORIGINAL PAGE IS 
OF. POOR QUALITY. 
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Ln 

O 


1 


01 
303 

5555 

5556 


*ET03¥(4) ,Pf11 (4,8,2),FH2 (2 ,4,8 ,2) ,FH3A (2, 4 ,B ,2 ) ,FW3B (2, 4, 8, 2) , 

♦ N0FM,K0FT2,N0FT3,JELEH(4) ,NSTF2{4) ,NELF2(4) ,NSTF3 (4) ,NELF3 (4) 
COMMON /ELFU/ FQSEF(2 05),REX(4),tIQR,NORP,NOED 
*,NRSL (4) ,NBSI (4) , NEED (4) 

COMMON /ML/ MNEL (6) ,B ATT (6) 

COMMON /FRAG/ P H (3) , P MASS (3) , FHOI (3) , ONK (3) ,CB (3) ,FCGa (3) , FCG W 
^,ALFA (3) ,DFCG[J(3) ,DFC6W(3) , D ALF A (3) , TEEL ,PKT (3) ,DELT AT , NP ,MI MP 
COMHON/BOON/YK(51) ,NBCONB,NBCB (7) ,NODBB (7) ,HK (5 1 ) , ROT (5 , 2) 
^,XDIST (6),DEOT(50) ,N0DP(6) 

COMMON /TIME/ IT 

COMMON/DIS/ ANGDT(50) , NEDI ( 50) , NDIS 
COMMON /BE/ NVEC(51,2), LMT(51) 

COMMON /TAM/ MKE(51) 

COMMON /THI/ HTH(5) 

SIN (Q) = DS1N (Q) 

COS (Q) =DCOS(Q) 

ATAN(Q) =DATAN(Q) 

SQRT(Q) =DSQRT(0) 

MRBAD=5 
HMRXTF=6 
MPrjNCH=7 
NV1= 20 
NV2= 8 
NV3=3 

FORMAT (1015) 

FORMA T (3 D1 5,6) 

FORMAT (3D25. 16) 

FORMAT(3D 15.6/(4015.6)) 

FORMAT (5D15. 6) 

FORMAT (15, 2D 15. 6) 

FORMAT (5D15. 6) 
lERMN = 1 

WRITE (MWRITE, 5556) IRRON 

FORMAT {* 1THIS IS RON NUMBER*, 13, » FOR THIS JET 5A SUBMITTAL*) 
REA D (MR BAD, 1) I K, ICP , NLAY , LREF , NOGA , NFL, MM, HI, M2, ICON 
READ (HREAD,1) (NSPL(H, 1) ,M=1,NLAX) 


MAIN0370 
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(3)MAIN04 20 
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MAIN04 70 
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DO 2 01 M=1,NLAY 


BAIN 07 30 


NSPLM= NSFL(H,1) 


MAIN0740 

201 

READ (MREAD,4) DENS (tt, 1),DS(H, 1),P(B, 1), (EPS (M,L,1) ,SIG(M,L, 

1) 

MAIN0750 


1,NSFLM) 


BA IN 07 60 


READ (BREAD, 2) B(1),DELTAT 


BAIN0770 


BNSL(1) = IK 


BAIN0780 


IKP1=IK-H 


MAIN0790 


IKK=IKP1 


BAIN0800 


IF(ICP.GT.O) IKK=IK 


BAIN08 10 


»S= IKK 


BAIN0820 


HPU=1 


BAIN08 30 

C IF A CONTINOATION DECK IS DESIRED, REHOVF. THE POLLOHING CARD: 

HPD=0 

MAIN0840 


«PU=0 


BAIN08 50 


PIF= 3 .14159265358979 3D+00 


BAIN0860 


NPZ 1 = Ml 


BAIN0870 


DO 7 100 1=1, IKK 


BAIN0880 

1— 1 

DO 7100 J= 1,3 


BAIN0890 

7100 

H (I,J) = 0.0 


MAIN0900 

C GEOHETEI GENERATION PE8FOEHED HERE 


BAIN09 10 


READ (BREAD, 2) (Y (I) ,Z (I) ,ANG (I) ,1=1, IKK) 


BAIN0920 


EEAD(MBSAD,5) ( (H (I,M) ,M=1 ,N1AY) ,1=1 ,IKK) 


HAIN0930 


DO 111 1=1, IKK 


BAIH0940 

111 

ANG(I) =ANG (I) *PI E/180.0 


BAIN 09 50 


IF(ICP. lE.O) GO TO 20 2 


BAIN0960 


r (IKP1) =Y (1) 


BAIN0970 


Z (IKP 1) =Z (1) 


BAIN0980 


AN3 (IKP1) =ANG( 1) 


BAIN0990 


DO 20 3 M=1,NLAY 


MAIN1000 

203 

H (IKPI, M) =H (1, M) 


MAIN1 010 

2 02 

CONTINUE 


MAIM 1020 


READ {BREAD ,5 300) NDIS 


MAIN1030 


NDI = NDIS 


a AIN 10 40 


IF (NDIS. EQ.O) GO TO 8 100 


BAINIOSO 


READ (BREAD, 8 101) (NEDI (I) , AN GDI (I) ,1=1, NDIS) 


BAIN1060 

8 10 1 

FORMAT (4(I5,D15.6) ) 


BAIK1070 


DO 3 102 1=1, NDIS 


BAIN1080 
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WNSFL=NSFL (I, 1) 


8102 ANGDI(I) = (ANGDI (I)<'PIE)/1R0.0 
8100 CONTINUE 

READ (MEEAD,53 00) NBB 
5300 FORHAT (2X5) 

HNSFL= NSFL(1,1) 

DO 5666 I=1,NLAY 
TF (MNSFL.lt. NSFL (I, 1) ) 

5666 CONTINUE 

DO 5305 1= i,ik: 

MKE(iy = 1 
LMT(I) = D 
YK(I) = 0,0 
MK (I)= r 
NV5C (1,2) = 1 + 1 
5305 NVEC (1,1 )= I 

IF (ICP.GT.O) NVEC (IK, 2) = 1 

IF(ICP.LE.O) MK(IK+1) =IK+1 
IF{N,BR.NS.O) GOTO 1112 
WR ITE (MWRITE,1113) 

1113 FORHAT (//,* THERE ARE NO BRANCHES 


CONNECTED TO THE MAIN STROCTDRE 


MAIN 1090 

HAIN1100 

MAIN1110 

MAIN11 20 

MAI N1 130 
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MAIN1150 

MAIN1160 

HAIN1170 

MAIN 1180 

MAIN1190 

MAIN 1200 

HAIN1210 

MAIN1220 

MAIN1230 

MAIN1240 

MAIN1250 

MAIN1260 

MAIN1270 

MAIN1280 


1112 

8888 

5310 

8200 
3 215 


3, THEREFORE’,/,* THE NUMBERING SYSTEM FOR NODES AND ELEMENTS RBB AINM AIN 1290 


a)S UNCETANGED*) 

CONTINUE 

IF (NBE.EQ.O) GO TO 5310 

CALL BRAN(SBR,DENS,EPS, SIG, B) 

DO 8888 1=1, NBS 

IF(HNSFL.LT. NSFL (1,If 1)) MNSFL= NS?L(1 

CONTINUE 

CONTINUE 

LGSP= C 

LSPP=0 

READ (MREAD, 8200) NOP, N ASP, NTERF 
FORM AT (315) 

DO 3215 1=1, IK 
DO 8215 J=1,2 
LKK(I,J) = 0 
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IF(NOP.EQ.O) GO TO 0220 
IF (NOP, NE. 2) LGSP=1 
IF(NOP,SE.1) LSPP=1 
IF (LSPP, NE. 1) GO TO 8220 

READ {MEEAD,8210) (NSDS(I) ,NSEL(I) , AZET (I) ,I=1,NASP) 
8210 F0RMAT(2I5,D15.6) 

WRITS (HH BITE, 156) 

156 FOEflAT (' OADDITIONAL STRAIN POINT* ,5X ELE f1ENT» ,5X, • S 
DO 3216 J= 1,NASP 
IF (NSBS(J) .NE.1) GO TO 8217 
M= NSEL(J) +1 

IF(ICP,GT. 0,AND.NSEL(J) .EQ.IK) MK (f!) =IK+1 
N= MK (M) -1 

LKK(N, 1) = 1 + LKK (N, 1) 

NO = LKK(N,1) +1 
LKK ( N, NO) = J 
GOTO 1400 

3217 NNNN = NSBS{J)-1 

IP (NODP(NNNN) «EQ.1) GOTO 8218 
NNNN= NODP (NNNN) 

N= MK(NNNN) + NSEL (J)- 1 
GO TO 8219 

8218 N= NSEL<J) 

8219 LKK(N, 1) = 1 + LKK{N,1) 

NO = LKK (N, 1) ♦ 1 

LKK (N, NO) = J 

1400 WRITE (MR RITE , 145) J,K,AZET(J) 

145 FORMATS * , 9X,I5 ,1 3X,I5,7 X,D15 .6 ) 

8216 CONTINDE 

8220 CONTINUE 

IF (NDIS. SQ. 0) GO TO 8 140 
IF (NBB.SQ.O) GOTO 3 145 
IF(NDI.EQ.O) GOTO 8145 
DO 8 146 J= 1 , NDI 
N= NEDI(J) +1 
N = MK (M) -1 
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NEDI (J) = N 

8 146 CONTINOE 
8 145 WRI'T'E (HWfiITE,8111) 

HRIT'g (BHEITE,8120) {NEDI (I) ,I=1,NDIS) 

8111 FORM AT(» OEACH OF THE FOLLOWING ELEMENTS HAS A SLOPE DISCONTIN UITI 
o)AT ITS FIRST NODE*) 

8120 FORMATC 2515) 

WRITE (MWRITE,8 1 12) (ANGDI (L) ,L = 1,NDIS) 

8112 ?ORMAT(*OTHE GLOBAL SLOPE (EAD.) AT EACH DISCONTINUITY EQUALS 
a) {8D15.6) ) 

DO 8 130 1= 1,NDIS 
M=NEDI(I) 

YK (M) =2.0 + YK (K) 

L1= NVSC(M,1) 

DROT(M) = ANGDI (I) - ANG (L 1) 

8130 CONTINUE 
8140 CONTINUF 

READ (MR BAD, 3) (AXG(K) ,K=1,NOGA) 

READ (MREAD,3) (AWG(K) ,K=1,N0GA) 

ESAD(MREAD,3) (TXG (K) ,K=1,NFL) 

BEAD (MR EAD, 3) (THG (K) ,K=1,NFL) 

: FOR MEMBRANE SET TXG=0. 0 AND THG=2.0 FOR ONE DEPTHHISE STATION 

READ (MR EAD, 1) NBCOND, (NBC (I) , NODEB (I) ,I=1,N3C0ND) 

IF (NBR.EQ.O) 30 TO 748 
NIT = NBCOMD+ 1 
NIT1 = NIT -1 
NBCOND= NBCOND+NBCONB 
IF (NBCONB.EQ.O) GO TO 751 
DO 750 LOP= 1,NBCONB 
NBC(NIT1 + LOP) = NBCB(LOP) 

75 0 N0DS3(NIT1 + LOP) = NODBB(LOP) 

751 IF (NIT1.SQ. 0) GO TO 748 
DO 7 53 LOP = 1,NIT1 
MTI = NODEB (LOP) 

753 NODEB (LOP) = MK(NTI) 

748 CONTINUE 
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in 
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READ (MREAD , 1) NQS,NO HP, NORO 
NI=IKK*4 

CALL IDENT (NQR ,B , DENS, EPS,SIG,N BE) 

VfEITE(MWRITE,402) 

402 FORKAT (///,* GAUSSIAN STATIONS AND WEIGHTS:*) 

HEIT2(MWEITE,400) (I., AXG (L ) ,L , ASG (L) ,L=1 ,NOGA) 

WRITE (MWRITE,40 1) (L,TXG (L) ,L,TWG{L) ,L=1,NFL) 

4 00 FORHAT {• • ,12X, • AXG*, I3,2X,* = * ,F20. 1 5 ,BX , ' AN G* , 1 3, 2X , • = • , F20. 1 5) 
401 FORMAT (' * , 1 2X, * TXG * ,I 3, 2X , * = ' , F20. 1 5, 8X, *T WG ' ,13 ,2X , * = • ,P20.15) 
NBR1 = NBR+1 
DO 651 K = 1,NBR1 
NLAP= NLAI 
IF(K.GT. 1) NLAP = 1 
DO 76 H=1,NLAP 
NSFLH=NSFL (H,K) 

ES (M, 1 ,K) = SIG (f1, 1,K( /EPS(H, 1,K) 

IF(NSFLM-I) 77,77,70 
78 DO 79 L=2,NSFLM 

7 9 BS(M,L ,K) = (SIG(M,L,K) -SIG {M ,L- 1 ,K) ) / (BPS (M, L, K)-EPS { H, L- 1, K) ) 

77 ES {M,NSFLM+1,K) = 0.0 
DO 8 0 L=1,NSFLM 

80 SNO(H,L,K)= ES (M,1 ,K) *EPS (M, L, K) 

YOUNG (M,K) = ES(K, 1,K{ 

76 CONTINUE 
651 CONTINUE 
IC = 0 

DO 70 IR=1,IK 

IF(YK (IR) .EQ.1.0 .OR.YK (IR) .EQ.3.0) IC=IC+1 
L1= NVEC(IR,1) 

L2 = NVEC(IR,2) 

NLAP= NLAY 

IF{MKE(IR) .GT.1) NLAP=1 
DO 70 J=1,NOGA 
DO 7 1 M=1, NLAP 

IF (YK(IR) ,NE. 1. O.AND. YK(IR) .NE.3.0) GOTO 600 
IF (EOT{IC,1).EQ.O.O) GO TO 610 
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RH(M)= H TH (IC)* (1.0- AJfG (J) ) + H (L2,«) *AXG (J) 

GO TO 71 ‘ 

61 0 EH (M) = H (L1,«) (1 .O-AXg'(J) )+ HTH (IC) * AXG ( J) 

GO TO 71 

600 RH(M) = H(L1 ,M) ^ { 1.0- AXG (J) ) 4- H(L2,«) ' AXG (J) 

71 COxITINUE 

HZ (1) =EH(1) /2. 

IF (NLAP. EQ-1) GO TO 7 2 
DO 73 M=2,NLAY 

73 HZ(H) =HZ(«-1)+ (EH (H) +RH (M-1) )/2. 

7 2 CONTINUE 

CM1 (I S, J) =0 .0 
CM2 (IE, J) =0. 0 
CM3 (IE, J) =0,0 
CE1 (IR, J) =0-0 
CE2 (IR, J) =0.0 
CEB (IR, J) =0.0 
1= K KE (IF ) 

DO 74 M=1,NLAP 
HREF (IR ,J,H)=HZ («)-HZ (LREF) 

CM1 (IR,J)=CM1 (IE,J) +DENS(H,I) B(I) *RH(H) 

CM2(IE,v7) = CM2(IR, J)-DENS (?!,I) *B(I) *RH(fl) *HREF (IR, J,fl) 

CM3 (IR,J) =CH3(IR,J)+DENS{M,I)'cB(I)^' (RH (H) ** 3/12. 

*+HREF (IR,J,M)**2*RH(M) ) 

FOR MEMBRANE SET CE2 AND CEB = 0.0 

CEI (IE ,J)=CE1 (IR,J) +if OUNG(H,I) *B (I) *RH(M> 

CE2(IR,J) = CE2 (IR,J) +YOONG(M,I) ^B(I) *RH (M) *HEEF (IR, J,H) 
CE3(IR,J) = CEB (IR,J) +YOUNG(M,I) *B(I)*(HH(M)**3/12.0 
^ + HREF(IR,J,M) ♦*2=^RH (M) ) 

NSFLM=NSFL(M,I) 

DO 75 N=1,NFL 
K=N+(M-1) *NFL 
GFL=RH (H) *TRG (N) *B (I| /2. 0 
GZETA (IR, J,K)=RH (M)*TXG (R)/2.+HREF (IR ,J ,M) 

DO 75 L = 1,NSFLM 

ASFL (IR,xT,K,L)= GPL*(ES (M,L,I)-ES (M , L+ 1 ,1) ) /SS (H , 1 , I) 
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75 CONTINUE 

74 CONTINUE 

70 CONTINUE 

IF(NBB.NE.O) GOTO 218 
DO 15 1=1,8 

15 IC0L(I)=1 
IKK1=IK-1 

IF(ICP. GT.O) GO TO 1 7 

DO 16 I=3,IKP1 

IK 4= I* 4 

IK3=I K4-1 

IK2=IK4-2 

IK1=IK4-3 

JJ= (1-1) 4-3 

ICOL (IK1) =JJ 

IC0KIK2) =JJ 

ICOL (IK3) =JJ 

ICOL(IK4) =JJ 

16 CONTINUE 
GO TO 19 

17 DO 18 I=3,IKB1 
IK4=I*4 
IK3=IK4-1 
IK2=IK4-2 
IKl=IK4-3 

J J= (I- 1 ) 3 

ICOL (IK 1) =JJ . 
IC0L(IK2)=JJ 
ICOL(IK3) =JJ 
ICOL(IK4)=jj 

18 CONTINUE 
ICOL(IK»4)=1 
ICOL (IK*4-1)=1 
ICOL (IK '4-2) =1 
ICOL (IK+4-3) =1 

19 CONTINUE 
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218 IN0J1(1)= 1 

DO 99 1=2, N1 

99 INUa (I) =I-ICOL (I-1) + INUM (1-1 ) 

DO 990 1=1, NI 

9 90 TNO « (I) =I NU«(I) 'ICOL (I) 

NIRREG=0 
INDEX =9 
rSET= 1 

DO 116 1=1, NI 
L=IC0L(I) 

IP (ICOL (I)-ISET) 117, 116,119 
119 ISET=ICOL(I) 

GO TO 1 16 

117 NISREG=NIRREG+1 

IF (NIRREG-MI/2) 711,711,90 
7 1 1 KROH (NI RREG ) =I 

HDEX (NIRREG)=IN DEX 
116 INDEX=INDEX+I-L 
9 0 ISIZE=NI+INDfl(NI) 

WRITE (f! WRITE, 91) ISIZE 

91 FORMAT{/, • SIZE OF ASSEMBLED MASS OR STIFFNESS MATRIX=*,I5) 
IF (ISIZE.LE. 2060) 0010 6012 
WRITE(MWRITE,601 1) 

60 11 FORMAT («0THE SIZE OF THE STIFFNESS MATRIX HAS EXCEEDED 2060. 

T) RUN HAS BEEN TERMINATED. CHANGE DIMENSION OF STIFK IN*,/, * 
^,ELMPP,AND TSTEP. ALSO CHANGE DIMENSIONS FOR AMA SS, BMASS, AND 
a)N') 

GOTO 150 
6012 CONTINUE 
ELMPB=0.0 
CALL 

DO 23 L=1,ISIZE 
BMASS (L) =AMASS (L) 

23 SPBIN(L)=0.C 

LLL= (IK-1) *26 ■*•3 6 
WRITE (MWRITE,90 30) 


MAIN 3250 
MAIN3260 
MAIN3270 
MAIN3280 
HAIN3290 
MAIN3300 
MAIN3310 
MAIN 3320 
MAIN3330 
MAIN33 40 
MAIN 3350 
MAIN33 60 
MAIN3370 
MAIN33 80 
MAIN3390 
HAIN34 00 
MAIN3410 
MAIN34 20 
HAIN3430 
HAIN3440 
MAIN3450 
MAIN3460 
MAIN3470 
THISMAIN3480 
HAINHAIN3490 
SPRIMAIN3500 
MAIN3510 
MAIH3520 
HAIH3530 
MAIN3540 

ELMPP (AMASS,STIFK, ISIZE, A EP, DEP, NY1 , REACK, P.E ACM, ELMP B) MAIN 3550 

MAIN3560 
MAIN 3570 
MAIN3580 
MAIN3590 
MAIN3600 



»RITE (f3WP.IT.E,90 3 5) (BHASS (I) ,1= 1,LLL) 

WRITE (MWRITE,9040) 

WRITE (WH RITE, 9035) (STIFK (I) , 1= 1,LLL) 

9030 FORM AT (• OBMASS =' ) 

9035 FOBHATC •, 8D16.8) 

9040 FORMAT(» OSTIFK =• ) 

CALL FAC (AMASS, ICOL, K ROW, NDEX, I DE T, M WHITE ,N I ,NIRR EG ,INO H) 

CALL TSTEP (AMASS, STIFF, DELTAT) 

IF (WQR .EQ. 0) GO TO 22 
CALL QREM (AL,AXG, AWG ,SPRIN) 

DO 8612 I=1,ISIZE 
8612 REACF(I) = REACK (I) + SPEIN (I) 

IF (NBCOND.EQ. 0) GOTO 93 
DO 92 1=1, NBCOND 
JT4=NODEB(I) *4 
JT4M3=JT4-3 
JT4M2=JT4-2 
JT4fi1=JT4-1 

CALL ERC(JT4M3, SPRIN , NI , ICOL, IM tIM) 

IF (NflC(I) .EQ. 1.0R.NBC (I) .EQ.2) CALL BRC ( JT4 Ml , SPRIN, »I,I COL , Ilf UM ) 
IF (NBC(I) .EQ.2. OR. NBC (I) .SQ. 3) CALL ERC( JT4H2,SPRIN, NI,ICOL,INO!l) 

92 CONTINOE 

93 CONTINUE 
22 CONTINUE 

DO 3951 J=1,NOGA 
3951 EPL2(J)= 0.0 
EPAS2= 0.0 
BIGL= 0.0 
BIGAL=0. 0 
fl= NBR+1 
DO 1 0005 J= 1,M 
BIG (J) =0.0 
BIGA (J) = 0.0 
BI (J) = 0, 0 
IBIGA(J) = 0 
IBIG(J) = 0 
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IBI(J) = 0 

MAI N3 970 

ISTA{J) = 0 

MAIN3980 

ISTAA (J) = 0 

MAIM3990 

BTIME(J) =0.0 

NAIN4000 

BTIHA (J) =0.0 

HAIN40 10 

BTIC1 (J) =0.0 

MAIH4020 

CONTINUE 

MAIN4030 

DTSQ=DELTAT^*2 

NAIN4040 

C2= 1./(2.*DELTAT**2) 

MAIN 40 50 

HCEIT-O 

MAIN4060 

TT= 0 

MAIN 4070 

TIME=0. 0 

HAIN4080 

CALL IMPaLS(NV,DELTAT,AL,SNS,SNP,NV1,NV2,NV3) 

MAIN4090 

READ (HPEAD,5) T BEGIN ,TFINAL, A MP 1 FV, AHP1 FW 

MAIN4100 

IF(TFINAL .EQ. 0.0) WRITE (HMRITE, 48) 

MAIN41 10 

FOEHATCO THERE IS NO TIME DEPENDENT FORCE DISTRIBOTION 

DURING HAIN4120 

THIS RON •) 

MAIN4130 

IF (TF INAL .EQ. 0.0) GO TO 49 

MAIN4140 

CALL LOADEQ(AL, AXG,AWG, TBEGIN , TFINAL) 

MAIN4150 

APDEN=0.0 

MAIN 4 160 

CTNETO=0. 0 

MAIN4170 

NEHADF=0 

MAIN4180 

T 1=TBEG1N 

HAIN4190 

NLOAD=2 

. MAIN4200 

DO 34 1=1, NT 

MAIN4210 

FHECH (I) =0. 0 

HAIN4220 

IP (TBEGIN.GT.0.0 .OR. TF INA L- EQ. 0 . 0 ) GO TO 30 

NAIN4230 

NLOAD=1 

MAIN4240 

CALL LOADFT (TI H E, NR EADF ,FMBCH ,AL) 

MAIN 42 50 

DO 25 L=1,ISIZS 

MAIN4260 

AMA SS (L) =BMASS(L) 

MAIN4270 

CALL FAC (AMASS ,ICOL, KSOW , NDEX,IDET, MWRITE, NI, NIEREG,INUM) 

MAIN4280 

CALL SOLV (AMASS, PMECH,DDELD, ICOL, KROW, NDEX, NI, NIRREG) 

MAIN4290 

GO TO 31 

MAIN4300 

DO 32 1=1, NI 

MAIN4310 

DDELD (I) = 0. 0 

MAIN4320 
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31 BO 33 1=1, NI 

33 DI5BH (I)=2. *DTSQ*DDELD(I) +6.*DELB(1) +6.*DISP(I) 

MLOAD=NLOAD 
DO 35 1=1, NI 
FLR (I)=FMECH (I) 

35 FLVB(I)=0.0 

CALL OMULT (BMA S S ,DIS U H , ICOL , NI, FLVH, KPO N DSX, UIR EEG) 

DO 37 L = 1,ISIZE 

37 AMASS (L)=6. ♦BMASS (L) +DTSQ* (STIFK (L) +SPRIN(L) ) 

CALL FAC (AMASS, ICOL, KROW, NPEX,IDET, H3RITE, NI, NIRREG, INB M) 
ITT = 1 

TIME=ITT*DELTAT 
NLOAD=2 
DO ,6 9 1=1, HI 
FLVA(I) =0.0 
69 FHBCH(I) =0.0 

IF (TIMF..LT.TBEGIN .DR. TIME. GT ,TPIS A L) GO TO 3B 
NLOAD=1 

CALL LOADFT (TI M E, NEE ADF ,FMECH, AL) 

38 DO 39 1=1 ,NI 

3 9 FL7 H(I) =DTSQ’^FMECH (I) +FLVM (I) 

CALL SOLV (AMASS ,F LVH , DIS , IC OL, KROH, NDEX , NI, NI REEG) 

DO 6 1 1=1, NI 

1 DEL D(I) =DIS(I) -DISP (I) 

30 DO 376 1=1, NI 

DIS (I) = DISP (I) +DELD(I) 

DISM1 (I)=DTSQ*ODELD(I)-DIS(I) +2. ♦DISP (I) 

3 76 CONTINUE 

DO 100 L=1,ISIZB 

100 AMASS (L) =2.*BMASS(I) ♦DTSQ*^ (STIFK (L)+SPRIN (L) ) 

CALL FAC (AMASS ,ICOL, KROH , NDEX , IDET, MHRITE, NI,NIRREG, INUM) 
IF(MLOAD .EQ. 2) GO TO 333 
APD=0.0 
DO 46 1 = 1, NI 

4 6 APD= APD+FLR (I) ♦DEED (I) 

APDEN=APDEN + APD 
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333 CONTINUE 

DO 1020 1=1, IKK 
EPSI (I) =0,0 
1020 EPSO(I) =0,0 

WRITE {«W RITE, 8255) M2, NOP 
8255 POEM AT{' OTHE FOLLOWING IS THE 
ci)D STRUCTURE.',/,* OUTPUT WILL 
n)OU?PUT OPTION' ,13, ' 
a WILL BE- PRINTED AT 
5)DARY CONDITIONS ARE 
SD AT THAT NODE HILL 
TIME = 0 .0 

CALL PRINT (IT ,TI ME, HI NN, HOUT, A PDEN, SPRIN, BM ASS, C2 , 
aNQE,CINSTO,BEP,HET, NV,ES, ASFL, SN S, N V 1 , N V2, N V 3) 

128 0 FORMAT (15, 3D20. 13) 
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M READ, 128 2) (IBIG(L) , ISUPP (L) , 1ST A (L) , BIG (L) ,BTIME (L) , L= 1, M) MAIN5000 

HREAD,1283) (IBI (L) , ISUR (L) , BI (L) , 8TIM (L) , L=1 ,M) HAIN5010 

MREAD, 128 4) (D I SP (I) , 1= 1, NI) MAIN5020 

MRE AD,1284) (DELD (I) , 1=1 , NI) HAIN5030 

MREAD, 1234) (DIS (I),I=1,NI) HAIH5040 


128 1 FORM AT (4D20. 13) 

12 82 FORMAT (315, 2D20. 13) 

128 3 FORM AT (2I5,2D20. 13) 

1284 FORMAT (4D20. 13) 

READ (MREAD, 1) ICONT 
IF (ICONT. NE.O) SOTO 
GOTO 120 
127 H=UNBR 

C THESE APE THE VALUES OF THE FOLLOWING VARIABLES TAKEN FROM A 

C PREVIOUS RUN OF THIS PROBLEM. THIS DATA WILL ALLOW A CONTINUATION 

C RUN TO BE MADE. 

READ (MREAD, 1280) ITT, TIMS, T1 , T2 
READ (MREAD ,1281) AMPiFV, AMP1FH, AMP2F V, AMP2FW 
P.EAD(MREAD, 1281) S LO PEV,S LOPEW ,A PDEN,CI NETO 
READ ( MREAD, 1282) (IBIGA(L) ,ISTAA(L) , IS DR A (L) , BIGA (L) ,BTIMA (L),L 
ii)=1,M) 

READ( 

READ ( 

R EA D { 

R BAD ( 

READ { 


READ( HP.EAD,1284) 

EliAD ( a RE AD, 128 4) 

E1AD{ MP.EAD, 12R4) 

READ { BREAD, 128 4) 

S,IE=1,IK ) 

READ{ BREAD, 128 4) 
d,IR=1,.IK ) 

WRITS(MH RITE, 86 1 1) 

8611 FORMAT (*0 THIS IS A CONTINaATIOS RUN.*) 
C START OF TIBS SOLUTION 


(DISM1 (I) ,1=1 ,NI) 

(FtlECH (I) ,I = 1,NI) 

(FLVA(I) ,1=1 , NT) 

{( ( (3NS (IR,J,K,L) ,L=1,MNSFL) ,K=1,HV2) ,J= 
(( ( (SNP (IR, J,K,L) ,L=1,MNSFL) , K= 1,NV2) ,J= 


120 


45 


cn 

OJ 


121 


128 

1277 

345 


ITT=ITT+1 
TiaE=ITT*DELTAT 
DO 121 1= 1 , NI 
DISH3 (I) = DISM2 (I) 

DISM2 (T)=DISM1 (I) 

DISal (I)=DISP(I) 

DISP{ I) =DIS ( I) 

FLR (I)=FMECH (I) 

PLH(I)=FL VA(I) 

FLVA(I)=0.0 
FHECH (I) =0,0 
FL7M (I) =0. 0 

DISUB(I)=5.’»^DISP(I)-4.*DISH 1(1) +DISB2(I) 

IF(ICP. LE.O) GO TO 1277 
DO 128 K=1,4 
DISP(IK*4+K) =DISP (K) 

DEED {IK*4 + K)=DELD(K) 

CONTINUE 

CONTINUE 

MLOAD=NLOAD 

CALL STRESS (DELTA? ,ASFL, GZ ETA, SNS, SNP, NV1, NV2,HV3) 
CALL OanLT(BHASS, DISUM, ICOL, N I, FL VM, KROH,NDEX, NIEEEG) 
NLO AD=2 

IF (TI ME .LT. TBEGIN . 3 E. TIME. G T. TF IN AL) GO TO 122 
NLOAD=1 

GALL LOADFT (TE ME,NREADF, FMECH, AL) 
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122 DO 123 1=1, NI 

123 PLVH (I) = (PKECH (I) - (2. *FLVA (I) -FLN(I) ) ) ♦DTSQ+FLVH (I) 

I?(NBCOND .EQ. 0) GO TO 124 

DO 125 I=1,NBCOND 
JT4 = NCDEB (I) *4 
PLVi1{JT4-3) =0.0 

IF {NBC(I) .EQ. 1 .OR. NBC(I).EQ.2) FL V« (JT4- 1 ) = 0. 0 
IF{NBC(I) .EQ.2 .OR. NBC(I),EQ.3) PLVH (JT4*2) =0. 0 

125 COKTINUE 

124 CALL SOLV (AMASS, FLV!!,DIS,ICOL,KEOH,NDEX,NI,NIRHEG) 

DO 126 1=1, NI 

126 DELD(I) =DIS(I)-DISP(I) 

IF(MLOAD .EQ. 2) GO TO 41 
A P D =0 .0 

DO 42 1=1, NI 

42 APD=APD+FLR (I) ♦DELD (I) 

APDEN=APDEN+APD 
4 1 IT=ITT- 1 

TIBE=IT-»DEL TAT 
DO 6701 1=1, IKE 
ITHE(I) = 0 
EPSI (I) = 0. 0 
6 701 EPSO(T) =0.0 
t!IZ= 0 

NPZ= IT-NPZ1 
IF(NPZ.NE.O) GOTO 6700 
MIZ= 1 

NPZ1 = NPZ1 + M2 
IF (LGSP. EQ. 0} GOTO 67 00 
WRITE (MW RITE, 11 100) 

WRITE (M WRITE, 67 05) IT 
6705 FORMAT {’0 CYCIE = * , 18) 

WRITE (M WRIT E, 6 7 07) 

6707 FORMAT (• ELEMENT * ,9X, *SI *, 4X, ’ STA 1 * , 4X, *SO • ,21X, ♦ SI* ,4X, * ST A 2' , 
^ 4X, 'SO* ,21X,*SI* ,4X, ' STA 3* , 4X,»SO* ) 

C GAUSSIAN STATION STRAIN CALCULATION 
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6700 DO 7 161 IR=1,IK 
K1= NVEC(IE,1) 

K2- NVEC(IR,2) 

LSS= aKE{IE) 

DO 8018 K=1,8 
THDEX= (K1-1)*4+K 
IF{K.GT.4) IND£X= (K2-1)*4+K-4 
DISM(K) = DISP( INDEX) 

8 018 CO NT IN DE 

IF {? K(IE) .EQ.0.0) GOTO 901 

CALL ROTAT {1 ,DUfl»y, DISM,IB) 

901 CONTINUE 

DO 604 1=1 ,NOGA 
DO 604 J=1,3 
BEPS (I,J)= 0.0 
DO 604 K=1 ,8 

604 BEPS (I,J)=BFPS(I,-J) +BEP(IR,I,J,K) ^ DISM(K) 

NLAP= NLAY 

IF (HKE (I R) .GT. 1) NLAP = 1 
H1= H(K1,1) 

H2 = H (R2,1) 

N=HKE(IR)-1 

IF (YK (IR ). SQ. 1.0.AND. ROT (N, 1) .EQ. 1,0) H(K1,1)= HTH(N) 
IF(YK (IR) .E3.1.0.AND.ROT (N,1).EQ.0.0) H(K2,1)= HTH(N) 
DO 8908 LM= 1,NLAP 
8908 HDIF(LM) = H(K2,LN)- H(K1,LM) 

DO 60 M=1,NOGA 
HINN=0 .0 
HOOT = 0.0 

IF (NLAY. EQ. 1) GOTO 89 31 
IF(LEEF-2) 8935,8936,8937 
3935 HL1= (H (K1 ,1) + HDI F (1) *AXG (H) ) /2.0 
HL2= HLI +H (K1,2) +HDIF (2) ♦AXG (N ) 

GOTO 8938 

8936 HL1= - (H (K1,2) +HDIF(2) *AXG(M) ) /2.0 
HL2 = -HLI 
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IF (NLAP. EQ.2) HL2-0.0 
GOTO 8938 

8937 HL2=- {H ( K1 , 3) + HDIF (3) ♦AXG(M) ) /2 . 0 
HL1 = HL2- (H { K1, 2) +HDI F (2) AXG (M) ) 

B938 CONTINUE 

DO 8909 LH= 1,LREF 
DIYI= 1.0 

IF (LM.EQ.LRFF) DIVI=2.0 

HINN= RINN+ (H(K1,LH) + HDIF (LH) * AXG (M) ) / DIVI 
8909 CONTINUE 

DO 8911 LM- I. EE F, NLAP 
DI7I= 1. 0 

IF(7.M.FQ.LEEF) DIVI-2.0 

HOUT= HOUT+ (H(K1,LH)+ HDIF (LH) * A XG (M )) / DIVI 
89 11 CONTINUE 
GOTO 8932 

8931 HINN= (H(K1,1)+ HDI F( 1) *AXG (M) ) /2.0 
HOrjT = HINN 

HL1= 0.0 
HL2= 0.0 

8932 CONTINUE 

FAPE= BEDS (Mrl) +BEPS(H,2) *♦2/2.0 
* + BEPS(M, 1) ♦♦2/2. 

IF (NTERF.EQ. 0) GOTO 8939 
IF (NLAP. EQ.1) GOTO 8939 
C FOR HE HB PANE SET HL1 AND HL2 =0.0 
EPL1 (M) = FARE+HL1*BEPS (H,3) 

EPL2 (M) = FABE+HL2^BEPS (H,3) 

IF(NLAP. EQ.2) EPL2 (H) = 0.0 
IF (EPLI (H) .IE, BIGL) GOTO 8940 
BIGL= EPL1(H) 

IBIGL= IR 
ISTAL= H 
ISURFL=1 
BTI«EL= TIHE 

8 94 0 IF (NL AY. EQ.2) GOTO 89 39 
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IF (EPL2 (M) .lE.BIGL) GOTO 8939 
BIGL= EPL2(M) 

IBIGL= Ifi 
ISTAL= !1 
ISURFL=2 
BTIMSL= TIHE 
8939 CONTIBOE 

C FOR MEMBRANE SET IIINN AND HOOT =0.0 
EPI(M)= FARE- HINN+BEPS (M,3) 

EPO(M) = FAEE4-HOUT*BEPS{M,3) 

IF(EPI (M) .LE.BIG (LSS) ) GO TO 591 
BIG(LSS) = EPI(M) 

IBIG (LSS) = IR 
ISTA (LSS ) = M 
ISO RF (LSS) = 1 
H BTIME(LSS) = TIME 

S 591 IF (EPO (M) .LR.BIG (LSS) ) SO TO 1200 
BIG (LSS) = EPO(M) 

IBIG (LSS)= TR 
I STA (L SS) = M 
IS UR F (LSS) = 2 
BTIME(LSS) = TIME 
1200 CONTINUE 
60 CONTINUE 

C AVERAGE NODAL STRAIN CALCULATION 

C AT A NODE WHERE A BRANCH ATTACHES TO THE MAIN STRUCTURE, 

C THE BRANCH'S NODAL STRAIN IS NOT AVERAGED IN 

DO 660 4 1=1, 2 
DO 6604 J=1,3 
BEPS ( I,J) = 0.0 
DO 6604 K=1,8 

6604 BEPS (I, J) = BEPS (I, J) +DEP (IR, I, J, K) ♦ DISM(K) 

FAR1 =BEPS (1 ,1) +BEPS{ 1,2) 2/2.0 ♦ BEPS ( 1 , 1) ^ 2/2- 0 

FAR2 =BEPS (2,1) +BEPS (2,2)**2/2.0 +BEPS (2, 1) **2/2 .0 
NKS = MKE(IR) 

NLA? = NLAY 
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IF{NKE.GT.1) NT.AP = 1 

IFCNLAP.FQ.I) GOTO 66 31 

THI1= 0. 0 

THOI =0.0 

THI2= 0. 0 

TH02= 0.0 

DO 6619 L=1,LEEP 

DIVT= 1.0 

IF (L.EQ.LEEF) DIVI=2.0 
THI1= THI1 + H{K1,L)/DIVI 

6619 THI2= THI2+ H(K2,L)/DIVI 
DO 6620 L= LHEF,NLAP 
DT7I =1 .0 

IF (L. EQ. IJ5EF) DIYI=2.0 
TH01= THOU- H(K1,L)/DIVI 

6620 TH02= TH02+ H(K2,L)/DIVT 
GOTO 6622 

6631 THI1= H(Kl,1)/2.0 
THI2= H(K2,1)/2.0 
TH01= THI1 
TH02= THI2 
6622 CONTINDE 

IF (NKE.BQ, 1) GOTO 6605 
IF(F.ATT(NKE'1) .EQ.KII GOTO 6606 
6605 ADEN =1.0 

IF(ITHR(K1) .GT. 0) ADEN=2.0 
ITHR{K1) = 1 

C FOR JSEMDFfANE SET TH1 1, THO 1^ THI 2, THO 2=0. 0 

EPSI (K1) = {EPSI(K1) + FAR1- THI1+BEPS (1 ,3)/2.0) /ADEN 
EPSO(KI) ={EPS0(K1) f FAR1+ THO 1*BEPS (1, 3) /2. 0) /ADEN 
IF(NKE.EQ.I) GOTO 6606 
IF (MATT (NKE- 1) . EQ. K2) SOTO 6607 
66 06 ADEN = 1.0 

IF (ITHR (K2). GT. 0) ADEN=2.0 
ITHP. ( K2) = 1 

EPSI(K2) =(EPSI(K2) + FAR2- THI2 *BEPS {2 ,3 ) /2 . 0) /ADEN 
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EP30 (K2) = (EPS0 (K2) + ?AE2+ TH02 ♦ BIP 3 (2 , 3) /2 . 0 ) /ADEN 
6607 CONTINUE 

= HI 

H {K2, 1) = H2 
IF (MIZ.NE.1) GO TO 7161 
IF (IGSP.EQ.D) GO TO 7161 
7940 WEITE(MWRITE,671 0) IR , (EPI (L) ,EPO (L) ,L=1 ,3 ) 

6710 FORMAT (' * ,I 3 , 2X ,3 ( 3X , Dl 5. 8, 3X, D 15. 8, 3X) ) 

IF (NLAP. EQ.1) GOTO 7161 
IF (NTEBF.EQ.O) GOTO 7 161 

K RITE (HWftLTE, 6609) (EPL1 (L) , BPL2 (L) , L=1 , 3) 

6609 FORMAT {• * ,5X,3 (3X,D1 5, 8,3X, Dl 5. 8, 3X) ) 

7161 CONTINUE 

C FIND LARGEST AVERAGE NODAL STRAIN 
DO 7170 1= 1,IKK 
N= 0 

DO 7171 IR=1,IK 
IF (NVEC(IR,1) .NF..I) GOTO 7172 
IF(MKE (IR) ,EQ. 1) N=N+1 

IF (MKE(IR) .GT.1) N= N+3 
IF (MKE (IR).GT. 1) NKE=MKE(IR) 

7172 CONTINUE 

IF (KVEC (IR ,2) . NE.I) GOTO 7171 
IF (MKE{IR) .EQ.1) N=N+1 

IF (MKE (IP) . GT. 1) N= N+3 
IF(MKE(IR) .GT.1) NKE= MKE (IR) 

7 171 CONTINUE 
NK=1 

IF (H.SQ. 3.0R.N. SQ.6) NK=NKE 
IF (EPSI (I).LE,BI (NK) ) GOTO 7174 
BT(NK) = EPSI (I) 

IBI 'NK) = I 
ISOS (NK) =1 
BTIM (NK) = TIME 

7174 IF(EPSO(I) .LE.BI (NK) J GOTO 7170 
BI(NK) = EPS 0(1) 
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IBI (NK) = I 
ISUR(NK) = 2 
BTIH (NK) = TIME 
717 0 CONTINUE 
7180 CONTINUE 

IF(LSPP.EQ,0) GOTO 8562 
IF (NIZ .N E, 1) GOTO 870 0 
WRITS (fW RITE, 670 5) IT 
WRITE(nWRITE,8707) 

8707 FORKATC STRAIN AT ADDITIONAL POINTS • , 10X, * SI • , 1 8X SO* ,23X, • El* 
® 18X, ’ EO' ) 

8700 DO 876 1 IR= 1,IK 

IF (IKK (IR, 1) .EQ. 0) GOTO 8761 
NLAP= NT. AY 

IF (EKE(IR) .GT.1) NLAP =1 
K1 = N7EC{IP,1) 

K2= NVEC(IR,2) 

DO 8019 K=1,8 

INDEX= (Kl-ll^a+K 

IF(K.GT. 4) I NDEX = (K2-1)*4+K-4 

DISH (K) = DISP (INDEX) 

8019 CONTINUE 

IF(YK(IR) ,EQ,0.0) GOTO 902 

CALL ROTAT (1,DUMMYr DISM,IR) 

902 CONTINUE 

H1= H(K1,1) 

H2 = H (K2,1) 

L= HKE(IR) 

N = HKS (IR)“ 1 

IF(YK(IR).EQ.1,O.AND.POT(N,1).EQ. 1.0) H(K1,1)- HTH(N) 

IF (YK (IR).EQ. 1. O.AND.ROT(N, 1) .EQ.0.0) H(K2,1)= HTH (N) 

NO= LKK(IR, 1) 

DO 8763 1= 1,NO 
IS = IKK (I R, 1 + 1) 

DO 8604 J=1,3 
ASPS (J) = 0. 0 
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DO 8604 K= 1,8 

8604 AEPS (J) = REPS (J) + AEP {IS, J, K) ♦ DISH (K) 

DO 6918 LB= 1,NLAP 

8918 HDIF (L«) = H(K2,IN)- H(K1,L«) 

HINfI=0 .0 

HOUT =0,0 

IF (NL&P. EQ. 1) GOTO 89 41 
IF(LREF-2) 8735,8736,8737 
9735 HL1= (H (K1 ,1)+HDIF(1) *AXG (fl) ) /2.0 
HL2= HL1+ H(K1,2V+HDIF(2)*AXG («) 

GOTO 8738 

8736 HL1= - (H (K1,2) +HDIF(2) ♦AXG{M) )/2.0 
HL2= ~HI1 

IF(KLAP.FQ. 2) HL2= C. 0 
GOTO 8738 

8737 H12= - (H (K1,3)+HDIF(3) *AXG(f1))/2,0 
HL1= HL2-(H (K1,2) +HDIF (2)*AXG (M) ) 

8738 CONTINUE 

DO 8919 LH= 1,LEEF 
DIVI= 1.0 

IF(LN.FQ.IRSF) DIVI=2.0 

HINN= HINN+ (H(K1,LM)+ HDIF (IH) +AZ ET (IS) ) / DIVI 

8919 CONTINUE 

DO 8921 LM= LEEF,N1AP 
DIVI= 1.0 

IF (LH. EQ.LEEF) DIVT=2.0 

HOUr= HOUT+ {H(K1,IM)+ HDIF(LM)* AZET(IS)) / DIVI 
8921 CONTINUE 
GOTO 8942 

8941 HINN= (H (K1, 1) +HDIF(1) tAZET(IS)) / 2. 0 
HOUT = HINN 
HL1= 0,3 
HL2= 0.0 
3942 CONTINUE 

FAP.E= AEPS (1) +AEPS (2) **2/2 .0+AEPS (1) ♦♦2/2,0 
IF (NTERF.EQ.O) GOTO 8739 
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IP{NLAP.EQ.l) GOTO 8739 
C FOR MEHBRANE SET 8L1 AMD HL2 =0.0 
EPAS1= FAEE+HL1* AEPS (3) 

EPAS2= F RRP>HL2*AEPS(3) 

IF(NLAP. EQ.2) EPAS2= 0.0 

IF (EPASI .IE. BIGAl) GOTO 8740 

BIGA L= E PA Si 

IBIGAL= IR 

ISTAAL= IS 

BTIMAL= TIME 

IS0RAL= 1 

874 0 IF(NEAY.EQ.2) GOTO 8 739 

IF (EPAS2.LE. BIGAL) GOTO 8739 

BIGAL= EPAS2 

IBIGAL= IR 

ISTAA1= IS 

BTIf1AL= TIME 

ISORAL = 2 

8739 CONTINUE 

C FOR MEMBRANE SET HINN AND HOUT =0.0 
EPASI = FARE” HINN* AEPS (3) 

EPASO = FARE+ HOUT^AEPS{3) 

C FIND LARGEST ADDTIONAL POINT STRAIN 
IF (EPASI, LE. BIGA (L) ) GO TO 8591 
BIGA(L) = EPASI 
IBIGA(L) = IR 
ISTAA (1) = IS 

BTIMA(L) = TIME 
ISURA (L) = 1 

8591 IF (EPASO .LE. BIGA (L) ) GO TO 8780 
BIGA (L) = EPASO 
IBIGA(L) = IE 
ISTAA (1) = IS 
BTIHA(L) = TIME 
ISURA (I) = 2 

8780 IF(MIZ.NE.I) GO TO 8763 
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EI= DSQRT(1 . 0+2 . 0* EPASI) -1.0 
EO= DSQET (1.G+2. 0* EPASO) -1.0 
W RITE ( Mli HI TE, 8781) IS , EP AS I , EP ASO ,EI , EO 
8781 FORMAT (• * ,10X,I3, 161C , D1 5. 8, 4X , D 1 5. 8, 1 1X, D1 5. 8, 4X, D1 5 .8) 
IF(NLAP. EQ.1) GOTO 8763 
IF (NTERF.EQ. 0) GOTOB763 
W RIT E (r« RI TB, 86 09) EP ASI , EP' AS2 
8609 FORMAT {» » ,29X,D15. 8, 4X, D1 5. 8) 

8763 CONTI NDE 

H(K1, 1) = H1 
H(K2,1) = H2 
8761 CONTIMDE 
8562 CONTINUE 

IF (IT.EQ. 1) CALL PRINT (IT , TIM E , HINN ,HOIJT ,APDEN ,SPP.I N, BM ASS, C2, 
*NQE,CINETO,BEP,NET,NV , ES, A SFL , SN S, NV 1 ,N V2, N V3 ) 

IF(IT-MI) 131,140,150 
140 fn = Hl+M2 

CALL PRINT (IT, TIME,! INN, HOilT, APDEN, SPRIN, BMASS , C2,NQR,CINETO, 

V BEP , WET , NV ,ES , ASFL ,SN S , NV 1 , NV2 , NV3) 

IF(NBCOND.EQ.O) GOTO 1260 
DO 1276 1=1, NI 

QDD (I) = (2.0»^ DISP(I) -5.0’^DISM 1 (I) + 4. ODDISH 2 (I)-DISM3 (I) ) /DTSQ 
REAFM(I)= 0.0 
REAFK (I) = 0. 0 
1276 CONTINUE 

CALL OMULT (REAC M ,QDD, ICOL , NI , REAFM , KROW, N D.SX, N IR E EG) 

CALL OMULT (REACK, D.ISP , ICO! ,NI ,RE AFK , KEOW , NDEX ,NIERBG) 

DO 1261 1=1,21 
1261 REAC (I) = 0.0 

DO 1262 I=1,NBCOND 
v7= NODEB(I)T4 
K= (1-1) *3 

REAC (K+1)= REAFM (J-3) + REAFK (xT- 3) - (FLE (J- 3) -FL VA (J-3) ) 

IF (NBC (I) . EQ.l .OR.NBC (I) .EQ.2) REAC (K+3)=REAFM(vI-l) + REAFK(J-1)- 
3) (FLR (J-I)-FLVA (J- 1) ) 

IF(NBC (I) .EQ.2. OR. NBC (I) .EQ.3) RE AC (K + 2) =RE AFM ( J- 2) + REAR K ( J- 2) - 
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a> (FLR (J-2) -FLVA (J'-2) ) 

1262 CONTINUE 

WRITE (HWRITE,1256) 

1256 FORMAT (• 0* ,6X, 'REACTIONS AT NODE 15X, 'E V (LBS) *, 1 3X, * RW (LBS) * , 
5) 1 IX, 'EM (IN- LBS) • ) 

DO 1 252 1=1, NBCOND 
J= (1-1) *3 

WRITE(KWRITE,1253) N3DEB(I), REAC (J+ 1 ) ,R E AC (J + 2) ,EEAC ( 3) 

1253 FORMAT (' * , 1 8X , 1 4, 5X, 3D20. 6) 


■I n 


52 CONTINUE 


1260 CONTINUE 
H=NBR+1 

WEITE(MWRITB,66) 

h'EITE (MW RITE ,67) (L,EIG (L) ,IBIG (L) ,ISURF (L) ,ISTA(L) ,BTIME (L) •L=1,M) 
IF (NTERF .EQ, 0) GOTO 1272 

WRITE (MMRITB ,1270) BI GL,IBIGL,I SURFL, 1ST AL, BTIM EL 

1270 FORMATC INTERFACE * , 4 X,D1 5. 6 ,1 X,I4 ,4X , 14 , 4X ,I4,4X,D1 5. 6) 

127 2 CONTINUE 

IF(LSPP„NE.1) GO TO 3782 
WRITE (MWRITE,60 30) 

WRITE (MW RITE, 60 3 5) (L,BIGA (L) ,IB1GA(L) ,ISTAA (L) ,BTIMA (L) ,ISURA (L) , 
3>L=1 ,M) 

IF (NTERF. EQ,0) GOTO 1273 

WRITE (MWSITE,1271) BIGAL,IBIGAL,ISTAAL, BTIMAL,ISURAX 

1271 FORMAT (' INTERFACE*, 1 4X, D 15. 6, 7X, 13, 6X, 15, 5X, Dl 5. 6,6X,I4) 

1273 CONTINUE 

3782 CONTINUE 

WRITE(MWRITE,7181) 

W RITE (MW RITE ,7 18 2) (I,BI (L) ,IBI (L) ,ISOR (L) ,BTIM (L) ,L=1 ,M) 

7181 FORMAT (* OSOBSTRUCTURE' ,5 X, 'LARGEST NODAL STRAIN » , 5X, ' NODE *,7X, 
d» SURF' ,1 1X,*TIME «) 

7182 FORMATC * , 4 X,I3 , 1 6 X, D15 .6 ,7X ,13 ,6 X,I5 ,5X ,D15, 6) 

WRITE (MW RITE ,11 100) 

1 1 1 00 FORMAT (' Qf***************************************^**************** 
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131 IF(IT-a£l) 120,170, 150 
170 CONTINUE 

WRITE (SPRITE ,600 2) 

6002 FORHATC OTHE LARGEST COMPUTED STRAINS FOR EACH SUBST.aOCTURE— 

5 MAIN AND BRANCHES — ARE PRINTED BELOW, 1= INNER 2 ~ OUTER 3URF» ) 
H= NBE+1 

WRITE {MWRITE,66) 

WRITE (MW RITE, 67) (L,BIG(L) ,IBIG (L) /IStlRF (1) ,ISTA(L) ,BTIME (L) ,L=1, M) 
66 FORMAT (• OSOBSTRDCTORE * ,8X, *KSTS* ,7X, *ELE*,5X, *SOEF',5X, ' STA* , 

5>9X,* TIMS') 

67FORMATC * , 3X, 14 , 6X, D 1 5, 6, IX, 14, 4X,I4 ,4X , 14 , 4X ,S 15. 6) 

IF (HTERF.EQ. 0) GOTO 1 274 

WRITE (MW RITE, 127 0) BIGL, IBIGL, IS UR FL, 1ST AL, BTIMEl 
127 4 CONTINUE 

IF(LS.PP. NE. 1) GOTO 
WEITE(MWRITE,603 0) 

WRITE (MW RITE ,60 35) 
ii>L=1, M) 

6 03 0 FORMAT (* OSOBSTEUCTDRE ',5X, 'LARGEST ADD. 

d* ADD. PT . * ,9X, 'TIME *, lOX , 'SURFACE *) 

6035 FORMAT (' ' , 4X,I3 , 1 6 X, D15 . 6 ,7 X ,I3 ,6X,I5 ,5X ,D 1 5. 6 ^r6X ,I 4) 

IF (NTERF.EQ. 0) GOTO 1275 

WRITE (MWEITE,1271) BIGAL ,IBIG AL ,IST A AL, BTIMALh ISORA L 
1275 CONTINUE 

149 CONTINUE 

WRITE (MWRITE,71 81) 

WRITE (MW RITE, 7182) (1, BI (L) ,IBI(L) , IS UR (L) ,BTIM (L) ,1=1 ,M) 

150 IF(MPU.EQ.O) GOTO 160 
M= N3R+1 

HRITE(MPUNCH, 1280) ITT, TIME, T1 ,T2 

WRITE (MPONCH, 128 1) AM P IFV, AMP 1 FW, AMP2F V, AMP2FW 

WHIT E(MP ON CH, 1281) SLO PEV,SLOP EW ,APDEN ,0 1 NETO 

WRITE (MPUNCH,128 2) (IBIGA (L) ,ISTAA(L) , IS OR A (L) , BIG A (L) ,BTIHA (L) ,L 

o) = 1,K) 

W RITE (HPUNGH, 1282) (IBIG(L) ,ISUEF (L) ,ISTA(L) ,BIG(L) ,BTIME(L) ,1=1, M) 
WRITS (MPONCH, 1283) (IBI (L) , ISO R { L) , BI (L) , 3TIM (L) , L=1 , M) 


149 

(L,BIGA{L) ,IBIGA(L) ,ISTAA (L) ,BTIMA(L) ,ISORA (L) , 

PT. STRAIN', 5X, 'ELEM',5X, 
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WRITE (fJPfJNCHr 1284) 
WRIT E(MP OUCH, 1284) 
WRITE (MPUNCH,128 4) 
WEITB{MPDKCH,1284) 
WRITS (MPONCH ,1284) 
HRITE(MP0NCH,1284) 
WRITS (WPIINCH, 128 4) 
S),IR=1,IK ) 

W RITE (MPaNCH, 1284) 


(DISP{I) ,1= 1,NI) 
(DELD (I) ,1=1 , SI) 
(DIS (I),T=1,NI) 
(DISH1 (I) ,1=1 ,NI) 
(FMECH(I) ,I = 1,NI) 
(FLVA(I) ,1=1 ,RI) 
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{( ( (SNS(IR,J,K,L) ,L=1 ,MSSFL) ,K=1,NV2) ,J=1 ,NOGA) MAIN9790 

HAIN98 00 

(( ( (SNP (TR, J,K,L) ,L=1,MNSFL) ,K=1,HV2) ,J=1,N03A) HAIN9810 


a,iR=i,iK ) 

GOTO 162 

160 WRITS (KWRITE, 161) 

161 FORMAT (• OTHERS ARS NO CARDS PUNCHED FOR CONTINUATION*) 
16 2 IF {ICON, EQ. 0) GOTO 151 

IRRUN = IRRUN +1 
GO TO 5555 
151 CALL EXIT 
END 
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SOBROUTINF. IMPULS (NV , DELTA T , AL , S NS , SNP , NV 1 ,NVS,NV3) 

IHPIICIT EEAt + 8 (A-H,0-Z) 

DIMENSIOH SNS (NV1 , 3,NV2,NV3) ,SNP (NVI, 3, NV2, NV3) 

DIMBKSION AL(50) 

COKMON/MAT/YOtJNG (3 , 6) , DS (3 , 6 ) ,SNO (3,5 ,6) ,NSPL (3 ,6) ,P (3,6) ,NLAY 
COMMON /FG/ IK,IKK,ICP,LREF,NOGA,NFL,NI,ICOL(205) ,INUM(205) 
♦,NBCOND,NBC(7) ,NO DEB (7) , KROH (8) ,NDEX(8) ^NIRREG 
COMMON/VQ/ FLVA (205) ,DISP (205) ,DELD(205) ,BINP(50,3) ,BIMP (50,3) 
COMMON /TAPE/ MEEAD , MHHITF , MPDNCH 
COMMON /TAM/ MKE(51) 

SIN (Q) =DSIN (Q) 

COS (Q)=DCCS (Q) 

DO 50 1=1, NX 
DELD (I)=0,0 

50 DISP(I)=0.0 
DO 51 IE=1,IK 

N1AP= NLAY 

IF (MKF (IR) .GT. 1) NLAP=1 
NO = MKE(IE) 

DO 51 J=1,NOGA 
BINP (IP.,J)=0. 0 
BIMP(IB,J)=0.0 
DO 51 M=1,NLAP 
NSFLM=NSFL (M,NO) 

DO 51 N=1,NF1 
K=N+ (M-1) *NFL 
DO 51 L=1,NSFLM 
SNP(I3,-J,K,L)=0.0 

51 SNS (IR,J, K,L) =0.0 
READ(MREAD, 1) NV , lOT A ,IOTB, lOTC 

1 FORMAT (415) 

WEITE(MHEITE,2) DELTAT 

2 FORMAT (/,« TIME STEP SIZE USED IN PROGRAM (SEC) =*,^15. 6) 
IF(NV .EQ. 0) WRITE (MWRITE,4) 

IF(NV .GT. 0) WRITE(MWRITE,6) 

4 FORMAT (/,* THERE IS NO INITIAL IMPULSE •) 
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6 FORMAT (/,* IMPULSE LOADINGS HAVE BEEN SPECIFIED AS DESCRIBED BYIMPU0370 
* INPUT •) IMP00380 

IF(NV .EQ. 0) GO TO 43 IMPU0390 

IF (IOTA .EQ.O) GO TO 10 ' IMPU0400 

WRITE (MHRITF, 100) IOTA IMPU0410 

100 FORMAT (• 0* ,14, • LOCAL INITIAL NORMAL VELOCITY FIELDS ARE DESCEIBIMPD0420 

3ED BELOW:', //r* FIRST ELEM* , 5X, * TOTAL ELEMS » , lOX,' HRAD* , 15X, »HRADlIMPn0430 
S',15X, 'ANGVI* ,15X,*WRAD2' , 15X, ' ANGV2' ) IMPU0440 

DO 20 IM=1,IOTA IMPU0450 

READ (MREAD,21) IE 1 , IE2, W R AD , HEADI , ANGV 1 , WR AD2 , ANGV2 IMPD0460 

21 FORMAT (2I5/5E15. 6) IHPU0470 

WRITS (MWRITE, 105) IE 1 , IE2 , WRA D, WRAD1 , ANGV 1 , WSAD2, A NGV2 IMPU0480 

105 FORMAT (• • , 16 , 1 3X, 13 , 9X , D1 3 . 6, 8X, D1 3. 5 ,7X, D 1 3. 6 , 7X , D1 3. 6 , 7X, Dl 3. 6) IHP00490 
IE2M1=IE2-1 IHPOOSOO 

DO 22 II=1,IE2M1 IMPD0510 

I=IBH-II IMPU0520 

IFdCP.LE. 0) GO TO 22 IMPU0530 

IF (I .GT. IK) I=I-IK IHPU0540 

22 DELD (1*4-2) =DELTAT*WRAD ISPU0550 

DELD{IE1*4-2) =DELTAT* WEAD 1 IMPU0560 

DELD (IE1*4-1) =DELTAT*ANGV1 IMP00570 

IE2P1=IE1 *IE2 IHPU0580 

IFdCP.LE. 0) GO TO 23 IRPU0590 

IF(IE2P1 .GT. IK) IE2P1=IE2P1-IK IMPU0600 

23 DELD (IE2P1+4-2) =DELTAT*WRAD2 IMP00610 

DELD (IE2P1*4- 1) =DELTAT*ANGV2 IHPU0620 

20 CONTINUE IBPU0630 

10 IFdOTB .EQ. 0) GO TO 41 IHP00640 

WRITE (MWRITE, 1 10) lOTE IMPU0650 

110 FORMATCO* ,14, ' NODAL VELOCITY IMPULSES ARE DESCRIBED BELOW:', IBP00660 

0)//,' NODE', 10X, 'VRAD', 20X, 'WRAD' ,20X, 'ANGV') IBPn0670 

DO 30 IM=1,IOTB IBPU0680 

READ (MREAD, 31) NODEV, VR AD, WR AD, A NGV IMPU0690 

31 FORMAT (I5,3F15. 6) IMPU0700 

WRITE (MWRITE, 1 15) NODEV, VRAD, WRAD, ANGV IMP00710 

115 FORMATC ',T3,6X,D13.6,11X,D13.6,11X,D13.6) IMPU0720 



30 

41 

120 


62 


125 


65 


\D 


66 


63 

61 

60 


DELD(NODEV*4-3) =DELTAI^ VEAD 
DELB (.N0DEV*4-2) =DELTAT*WRAD 
DELD(NODEV*4-1) ^DELTAT*ANGV 
CONTINUE 

IFdOTC .EQ. 0) GO TO 60 
«PITE (MWRITE, 120) lOTC 

FORMAT (*0' ,14, * SINE SHAPED VELOGITt FIELDS ARE tJBSGRlBED 
a,//,' FIRST ELEM* ,5X, 'TOTAL ELEMS * , lOX , • «RA D* ) 

DO 61 IM=1,ICTC 

READ (AHEAD, 62) IS1,IS2,HRAD 

FORMAT (215, E15. 6) 

WRITE (MHRITE, 125) IS1,IS2,WRAD 
FORMATC ', I6,13X,I3,9X,D13.6) 

TX=0.0 

DO 65 NN=1,IS2 

NE= (151-1) +NN 

IF(NE .GT. IK) NE=NE-IK 

TX=TX+AL(NE) 

PIEP=3. 14159265/TX 

DELD (IS 1*4-1) =MRAD*DELTAT*PIEP 

XX=0.0 

DO 63 TI-1,IS2 
1=131+ II 
NE=I-1 

IF(ICP.LE.O) GO TO 66 
IF (I ,GT. IK) r=I-IK 
IF(NE .GT. IK) NE=NE-IK 
XX=XX+AL(NE) 

DELD (1*4-2) =HRAD*DELTAT*SIN (PIEP*XX) 

DELD (1*4-1) =WRAD*DELTAT*PIEP*C0S (PIEP*XX) 

CONTINUE 

IF(NBCOND .EQ.O) GO TO 43 
DO 40 I=1,NBCCND 
JT4=NODEB (I) *4 
DELD (JT4-3)=0.0 

IF (NBC(I) .EQ. 1 .CR. NBC(I).EQ.2) DELD (JT4^ 1) t) 


IROU0730 
IKPU0740 
IRP00750 
IHPU0760 
IMPU0770 
IHP00780 
BELOW: •IMP00790 
IHPU0800 
IMPU0810 
IMPU0820 
IHPU0830 
IMPD0840 
IHP00850 
IHP00860 
IHPU0870 
IHPD0880 
IHPU0890 
IBPU0900 
IMPU0910 
IHP00920 
IMPU0930 
IHP00940 
IHPD0950 
IHP00960 
IMPU0970 
IHPO0980 
IHPO0990 
IHPUIOOO 
IHPU1010 
IBPD1020 
IHPU1030 
IHPD1040 
IMP01050 
IHPU1060 
IHPU1070 
IBPU1080 


ORIGINAL PAGE IS 
OF POOR QUALITY 


180 


IF (NBC (I) .IQ. 2 .OS. NBC(I).EQ.3) 
40 CCNTINOE 

43 CONTINUE 
IF(ICP.LE.O) GO TO 45 
DO 44 K=1,4 

DISP (I K*4+K) =DISP (K) 

44 BELD(IK*4+K)=DELr(K) 

45 CONTINUE 
SETURN 

END 
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SUBROUTINE lOADEQ (AL , AXG , A HG, TBEGTN, TFINAL) 

TO FIND GENERALIZED NODAL LOAD AND EXTERNAL! Y-APPLIED LOAD 
FORMATION MATRICES 
IMPLICIT HEAL^a (A-H,0-Z) 

DIMENSION FM (8,2) ,AI(1) ,AXG (1) ,AWG (1) , A (8, 8) ,LMI (8) ,HMI (8) 

*,FHA (8,2) ,FMB (8,2) ,BNG (51) 

COMMON/MAT /YOUNG (3,6) ,DS (3,6) ,SNO (3,5,6) ,NSFL (3,6) ,P (3,6) ,NLAY 
COMMON /FG/ IK,IKK,ICP,LREF,NOGA,NFL,NI,ICOL(205) ,INUB (205) 

♦ ,NBCOND,NBC (7) ,NODEB (7) , KEOW (8) ,NDEX (8) ,NIREEG 

CQMHGN/FC/ Y (51) ,Z (51) , ANG (51) ,H (51,3) 

COMMON /FORCE/ T 1 , AMP 1 F V , AMP 1 FM , T2 , AHP2FV , AMP2FW, SLOPEV , SLOPEW , 
♦AMPFV, AHPFW,ETA(4) ,RT0V{4) ,RTOW(4) ,RT02V(4) ,ET02W(4) ,ST03?(4) , 

♦ RTC3M(4) ,FM1 (4,8,2) ,FM2 (2 ,4 , 8,2) , FM3A (2 ,4 ,8 ,2) ,FM3B (2 ,4,8 ,2) , 
*NOFT1,NOFT2,NOFT3,JELEM (4) ,NSTF2(4) ,NELF2(4) ,NSTF3(4) ,NELF3(4) 

COMMON/BOUN/ YK(51) , NBCONB, NECB (7) ,NODBB(7) ,MK(51) ,SOT (5,2) 

♦, XDIST (6) ,DROT (50) ,NODP (6) 

COMMON /TAM/ MKE(51) 

COMMON /TAPE/ MREA D, MWRITE, MPUNCH 
COMMON /BR/ NVEC(51,2) , LMT(51) 

SIN (Q) =DSIN (Q) 

COS (0) =DCOS (Q) 

AT AN (Q)=DATAN (0) 

IF(TFINAL ,EQ. 0.0) RETURN 
WRITE (MWRITE, 47) TBEGIN , TF INAL 

FORMATCO STARTING TIME OF FORCING FUNCTION (SEC) =»,E15.6,/, 
** STOPPING TIME OF FORCING FUNCTION (SEC) =»,S15.6) 


WRITE (MWRITE, 440) TBEGIN , A HP IF V, AMP 1 FM 
440 FORMAT (*0AT TI ME • , D1 5 . 6, • TANGENTIAL FORCE=* ,D15.6,5X, * 
o)RCE=' ,D15.6,/) 

READ (HREAD,6) NOFT 1 , NOFT2 , N0FT3 
6 FORMAT (315) 

7 F0RMAT(I5,3D15.6) 

8 FORMAT (215, 2D1 5. 6) 

IF(NQPT1 .EQ. 0) GO TO 54 
WRITE (MWRITE, 1001) 

1001 PCRMAT (' ODESCRTPTTON OF POINT FORCES:*) 


NORMAL 


LODQ0010 
TRANS-LODQ0020 
LODQ0030 
LODQ0040 
LODQ0050 
IODQ0060 
LODQ0070 
LODQ0080 
LODQ0090 
10DQ0100 
LODQ0110 
1CDQ0120 
10DQ0130 
LODQ0140 
LODQ0150 
LODQ0160 
IODQ0170 
LODQ0180 
LODQ0190 
LODQ0200 
10DQ0210 
LODQ0220 
LODQ0230 
LODQ0240 
LODQ0250 
LODQ0260 
LODQ0270 
FOLODQ0280 
LODQ0290 
LODQ0300 
LODQ0310 
LODQ0320 
LODQ0330 
LODQ0340 
LODQ0350 
10 DQ 03 60 
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H 

CO 

to 


WRITE (MWPITE, 1005) LODQ0370 

1005 FORMAT{»OELEMENT*,13X, »S COORDINATE *, 1 2X ,* RTOV • ^ 16X, * RTOW » ) LODQ0380 

READ (BREAD, 7) (JELEM(I) ,ETA(I) ,RT0V(I) ,RTOW(I) ,I=1,N0FT1) LODQ0390 

WRITE(nWRITE, 1000) (JELEH(I) ,ETA (I) ,RTOV(l) ,RTOW(I) ,I=1,HOFT1) LODQ0400 
1000 FORMAT (• * ,14 , 10X, 3D20.6) LODQ0410 

DO 100 r=1,NOFTl LODQ0420 

NE=JELEH(I) 1ODQ0430 

SL=ETA(I) LODQ0440 

I.= KKE(NE) -1 LODQ0450 

K1 = NVEC(NE,1) IODQ0460 

K2 = NVEC(NE,2) IODQ0470 

P5=Z (K2) -Z (K1) LODQ0480 

P6=Y (K2) -Y (K1) IODQ0490 

P7=ANG(K2 )-ANG(K1) LODQ0500 

IF (YK (NE) .EQ. 1 .0) P7=ANG (K2) - ROT (L,2) -ANG (K1) LODQ0510 

IF(YK(NE) .EQ. 1.0. AND. EOT (L,1) .SQ.0.0) P7=ROT{L,2) +ANG (K2) -ANG (Kl) LODQ0520 
IF (YK (NE) . EQ.2.0) P7= ANG(K2)- DROT(NE) - ANG(K1) LODQ0530 

IF (YK(NE) . EO.3.0) P7=R0T (L,2) +ANG (K2) -DROT (NE)-ANG (Kl) 10DQ0540 

PIF= 3. 141592653589793D400 LODQ0550 

PIE2= 2.0+PIE LODQ0560 

PIE32= 1.5 *PIE LODQ0570 

ANG2=ANG(K2) IODQ0580 

ANG1=ANG(K1) LODQO590 

IF(YK(NE) .EQ.1.0.AND.ROT (L,1) .EQ.0.0) ANG (K2) =ROT (L,2) *ANG(K2) IODQ0600 

IF(YK(NE) .EQ. 1.0.AND.BOT (L ,1) . EQ. 1 . 0) ANG (Kl) =ROT (L ,2)+ANG(Kl) 10DQ0610 
IF (YK (NE) .EQ. 2.0) ANG(Kl)= DROT(NE) ♦ ANG(Kl) LODQ0620 

IF (¥K{NE) .EQ.3.0) ANG (K2) = EOT (L , 2) +ANG <K2) L0DQ0630 

IF(YK(NE) .EQ.3.0) ANG (Kl) = DROT (NE) +ANG (Kl) 10DQ0640 

APHA = PIE / 2.0 10DQ0650 

IF (P5.LT.0.0) APHA= -APHA LODQ0660 

IF (P6.NE.0.0) APHA= ATAN (P5/P6) LODQ0670 

IF (P6. IT. 0.0. AND.P5.lt. 0.0) APHA=APHA-PIE LODQ0680 

IF(P6.LT.0.0 .AND. P5.GE.0.0) APHA=APHA+PIE LODQ0690 

BNG (NE+1) =ANG (K2 ) IODQ0700 

BNG (NE) =ANG (K1) LODQ0710 

IF(P7.GT. (PIE32) .AND. APHA. LT. 0.0) BNG (NE+1 ) =ANG (K2 ) -PIE2 LODQ0720 


IF (P7.GT. (PTE32 ) . AND. APHA . GT. 0 . 0) BNG (NE) -ANG (K1) +PIE2 
IF{P7. LT. (-PIF32 ) .AND.AFHA.GT.0.0) BNG (NE+1) «ANG (K2) ♦PtE2 
IF (P7.LT. (-PIE32 ) .AND.APHA.lt. 0.0) BNG (NE) =ANG (K1) -PIB2 
BZER=BNG (NE) -APHA 

B1= {-2.*BNG (NE+1)-4.*BNG(NE) +6.*APHA) /AL(NE) 

B2=(3 .♦BUG (NE + 1) +3.*BNG (NE) -6. ♦APHA) /AL (NE)**2 
ANG(K2)-- ANG2 
ANG(K1)= ANG1 
DO 400 K=1,8 
DO 400 J=1,8 
400 A(K,J) = 0.0 

A(1,1)= COS (BNG (NE)-APHA) 

A (1,2) = SIN (BNG (NE) -APHA) 

A (2,1) =-SIN (BNG (NE) -APHA) 

A (2,2)= COS (BNG (NE) -APHA) 

A(3,3)=1. 

A (5,1) =COS (BNG (NE+1) -APHA) 

A (5,2)=SIN (BNG(NE + 1) -APHA) 

A (5,3)=P6*SIN (BNG (NE+1) ) -P5*COS (BNG (NE+1) ) 

A (6,1) =-SIN (BNG (NE+1) -APHA) 

A (6,2)=COS (BNG (NE+1) -APHA) 

A (6 ,3) =P6*COS (BNG (NE+1) ) +P5*SIN (BNG (NE+1) ) 

A (7,3) =1. 

A(4,4) = 1. 

A (5,4) =AL (NE) 

A (5,7)=AL (NE) ♦♦2 
A (5,8) =AL (NE) **3 
A (6,5) =AL (NE) ♦♦2 
A (6,6)=AL (NE) ♦♦3 
P8=B1+2.*B2*AL(NE) 

A (7,4)=AL (NE) *P8 
A (7,5)=2.*AL(NE) 

A(7,6)=3.+AI(NE)**2 
A (7,7)=AL (NE) ♦♦2*P8 
A (7,8) =AL (NE) ♦♦3*P8 
A(8,4)=1. 


LODQ0730 

LOD00740 

LODQ0750 

10DQ0760 

10DQ0770 

LODQ0780 

LCDQ0790 

LODQ0800 

LODQ0810 

LOBQ0820 

10D00830 

LODQ0840 

LODQ0850 

LODQ0860 

LODQ0870 

LCDQ0880 

LODQ0890 

10DQ0900 

LODQ0910 

IODQ0920 

LODQ0930 

LODQ0940 

LODQ0950 

LODQ0960 

LODQ0970 

LODQ0980 

LODQ0990 

LODQ1000 

LODQ1010 

LODQ1020 

LODQ1030 

IODQ1040 

LODQ1050 

IODQ1060 

LODQ1070 

LODQ1080 
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101 


102 


A(8,5) =-AL(NE) **2^P8 

LODQ1090 

A (8,6) =-AL (NE)**3*P8 

LODQ1100 

A (8,7) =2. *AL (NE) 

10DQ1110 

A(8,8)-3.^AL(NE)^‘*2 

LODQ1120 

CALL MINV (A,8,DET,LHI,BBI) 

10DQ1130 

PHI=BZER+B1*S1+B2*SL»*2 

LODQ1140 

PHIP=B1+2.*B2^SL 

IODQ1150 

YZET=0.0 

LODQ1T60 

ZZET=0.0 

LODQ1170 

DO 101 JJ=1,NGGA 

LODQ1180 

P2 = BZER + B1*SL*AXG (JJ) +B2*(SL*AXG (JJ) ) **2 + APHA 

LODQ1190 

YZET=YZET+COS (P2) *SL*AHG (JJ) 

LODQ1200 

ZZET=ZZET+SIN (P2) ♦SL^AWG (JJ) 

LODQ1210 

P3=YZET*SIN (PHI+APHA) -ZZET+COS (PHI+APHA) 

LODQ1220 

P4=YZET*COS(PHI+APHA) +ZZET*SIN (PHI+APHA) 

LODQ1230 

FM (1 , 1) =COS (PHI) 

LQDQ1240 

FM (2,1)=SIN(PHI) 

L0DQ1250 

FM(1,2)=-SIN(PHI) 

LODQ1260 

FH(2,2)=CCS(PHI) 

LODQ1270 

FM (3,1)=P3 

LODQ1280 

FM (3,2)=P4 

LODQ1290 

FM (4,1)=SL 

XODQ1300 

FM (4,2)=0.0 

LODQ1310 

FH(5,1)=0.0 

LODQ1320 

FM (5,2)=SL**2 

LODQ1330 

FM (6,1)=0.0 

10DQ1340 

FM (6,2)=SL**3 

LODQ1350 

FM (7,1)=SL^Y2 

L0DQ1360 

FM(7,2) =0.0 

LODQ1370 

FH(8,1)=SL*^3 

L0DQ1380 

FM (8,2)=Q.0 

LODQ1390 

DO 102 M=1,8 

LODQ1400 

DO 102 N=1,2 

LODQ1410 

FM1 (I,M,N)=0. 0 

LODQ1420 

DO 102 K=1,8 

LODQ1430 

FM1(I,M,N)=FM1 (I,M,N) +A (K,M)*PM(K,N) 

1ODQ1440 
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100 CONTINUE 

54 IF(NOFT2 .EQ. 0) GO TO 55 
WRITE (MWEITE, 1010) 

1010 FORKAT (* ODESCEIPTION OF RECTANGULAR SHAPED FORCES:*) 

WRITE (MWRITE,1 01 1) 

1011 FORMAT (’OFIRST ELEMENT *, 5X, » NO. OF ELEHS . * , 1 OX, • RT02V * ^ 17X, •RT02M * 

a) 

READ (MREAD.S) (NSTF2(I) ,NELF2(I) ,RT02V(I) ,RT02W{I) ,I=1,NOFT2) 

WRITE {MWRITE, 1015) (NSTF2(I) ,NELF2(I) ,RT02F(I) ,RT02W(I) ,I=1,NOFT2) 
1015 FORMAT (5X ,14 , 13X, 14, 1 2X, D13. 6 , 1 0X, D1 3. 6) 

■ DO 200 I=1,NOFT2 
NSTAT=NSTF2 (I) 

NEND=NELF2(I) 

DO 201 NN=1,NEND 
NE= (NSTAT-I) +NN 
IF(NE .GT. IK) NE=NE-IK 
MKE(NE) -1 
K1 = NVEC(NE,1) 

K2 = NVEC{NE,2) 

P5=Z (K2) -Z (K1) 

P6=Y (K2)-Y (K1) 

P7=ANG{K2 )-ANG(K1) 

IF (YK (NE) .EQ. 1.0) P7=ANG (K2) - ROT (L,2) -ANG (Kl) 

IF (YK{NE) .EQ.1 .0. AND.ROT (L, 1) .EQ.0.0) P7=R0T (L,2) ♦ANG (K2)-ANG (Kl) 
IF (YK (NE) .EQ.2.0) P7= ANG(K2)- DROT(NE) - ANG(K1) 

IF(YK(NE) .EQ.3.0) P7=ROT(L,2) +ANG (K2) -DROT (NE) -ANG (Kl) 

PIE= 3.141592653589793D+00 
PIE2= 2.0+PIE 
PIE32= 1.5 *PIE 
ANG2=ANG (K2) 


ANG1=ANG (Kl) 
IF (YK(NE) .EQ 


1.0. AND. HOT (L,1) .EQ.0.0) ANG(K2)=R0T (L,2) +ANG(K2) 
IF(YR(NE) .EQ. 1.0. AND. ROT (L ,1) . EQ . 1 . 0) ANG (Kl ) =ROT (L ,2)+ANG(Kl) 
IF(YK(NE) .EQ.2.0) ANG(Kl)^ DROT(NE) + ANG(KI) 

IF (YK(NE) .EQ.3.0) ANG(K2)= ROT (L , 2) +ANG (K2) 

IF (YK (NE) . EQ. 3.0) ANG(K1)= DROT (NE) +ANG (Kl) 


LODQ1450 

I0DQ1460 

LODQ1470 

LODQ1480 

LODQ1490 

LODQ1500 

LODQ1510 

LODQ1520 

L0DQ1530 

LCDQ1540 

LODQ1550 

LODQ1560 

LODQ1570 

LODQ1580 

1ODQ1590 

LODQ1600 

LODQ1610 

LODQ1620 

1ODQ1630 

L0DQ1640 

LODQ1650 

LODQ1660 

LODQ1670 

LODQ1680 

LODQ1690 

LODQ1700 

LODQ1710 

LODQ1720 

LODQ1730 

I0DQ1740 

LODQ1750 

LODQ1760 

LODQ1770 

LODQ1780 

LODQ1790 

LODQ1800 
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APBA = PIE / 2.0 
IF(P5.LT.0.0) APHA= -APHA 
IF (P6. HE. 0.0) APHA= ATAN (P5/P6) 

IF (P6.LT. 0.0. AND.P5.lt. 0.0) APHA=APHA-PIE 

■ IF(P6.LT.0.0 .AND. P5.GE.0.0) APHA=APHA+PIE 

BNG (NE + 1) =ANG (K2 ) 

BNG (NE)=ANG (K 1) 

IF (P7.GT. (PIE32 ) .AND. APHA.XT.0,0) BNG (NE+1 ) =ANG (K2) -PIE2 

■ IF (P7.GT. (PIE32 ). AND. APHA. GT, 0.0) BNG (NE) =ANG (K1) ♦PI,E2 
IF(P7.LT. (-PIE32 ) . AND. AEHA.GT. 0 . 0) BNG (NE+1 ) =ANG (K2) +PIE2 
IF (P7.1T. (-PIF32 ) .AND.APHA.lt. 0.0) BNG (NE)=ANG (K1) -PIE2 

BZEK=BNG (NE) -APHA 

B1=(-2.*BNG (NE+1) -4. *BNG(NE) +6.*APHA) /AL(NE) 

B2= (3. *BNG (NE+1) +3.*BNG (NE) -6. *APHA) /AL (NE ) **2 
ANG(K2)~ ANG2 
ANG(K1)= ANG1 
DO 401 K=1,8 
DO 401 J=1,8 
^ 401 A (K,J) = 0.0 

O' A (1,1)= COS (BNG(NE)-APHA) 

A (1,2)= SIN (BNG (NE) -APHA) 

A (2, 1) =-SIN (BNG (NE) -APHA) 

A (2,2)= COS (BNG (NE) -APHA) 

A (3,3)=1. 

A(5,1)=COS (BNG(NE+1) -APHA) 

A (5,2)=SIN (BNG(NE+1) -APHA) 

A (5,3) =P6*SIN (BNG (NE + 1) ) -P5*COS (BNG (NE+1) ) 

A (6,1)=-SIN (BNG (NE+1)-APHA) 

A (6,2) =C0S (BNG(NE+1) -APHA) 

A(6,3)=P6*C0S (BNG (NE + 1)) +P5*SIN (BNG (NE+ 1) ) 

A(7,3)=1. 

A (4,4)=1 . 

A (5,4)=AL (NE) 

A(5, 7) = AL (HE)+*2 
A (5,8)=AL (NE) 

A(6,5) =AL(NE) **2 


1ODQ1810 

LODQ1820 

LODQ1830 

LODQ1840 

LODQ1850 

LODQ1860 

LODQ1870 

LODQ1880 

LODQ1890 

LODQ1900 

LODQ1910 

LODQ1920 

LODQ1930 

LODQ1940 

LODQ1950 

LODQ1960 

LODQ1970 

LODQ1980 

LODQ1990 

LODQ2000 

10DQ2010 

LODQ2020 

LODQ2030 

LODQ2040 

LODQ2050 

XODQ2060 

LODQ2070 

IODQ2080 

LODQ2090 

LODQ2100 

LODQ2110 

LODQ2120 

10DQ2130 

LODQ2140 

1ODQ2150 

LODQ2160 


A (6,6)=AL (NE) **3 
P8=Bl+2. *B2*AL(NE) 

A(7,4)=AI (NE) *P8 
A (7,5)=2. *AL (NE) 

A (7,6) =3. *AL (HE) **2 
A (7^7) =AL (NE) **2*P8 
A (7,8)=AL (NE) ♦♦3*P8 
A(8,4)=1. 

A (8,5)=-AL (NE)**2*P8 
A (8,6)=-AL (NE)**3*P8 
A (8,7) = 2. *AL (NE) 

A(8,8)=3.*AL(NE)**2 
CALL MINV (A,8,DET,LHI,MHI) 

DO 202 M=1,8 
DO 202 N=1,2 
EM (M,N)=0.0 
DO 203 J=1,NOGA 
ZET=AL(NE) *AXG(J) 

PHIP=E1+2.*B2*ZET 
PHI=BZER+B1*ZET+B2*ZET**2 
WET=AL(NE) ♦AHG(J) 

YZET=0.0 

ZZET=0.0 

DO 204 JJ=1,HCGA 

P2=BZER+B1 ♦ZET^AXG (J J) +B2^ (ZET*AXG (JJ) ) ♦♦2+APHA 
YZET=YZET+CCS (P2) ♦ZET^AHG (JJ) 

ZZET=ZZET+SIN (P2) *ZET*AHG (JJ) 

P3=YZET*SIN (PHI+ APHA) -ZZET*COS (PHI+APHA) 
P4=YZET’*‘COS (PHI+APHA) +ZZET+SIN (PHI+APHA) 
FM(1,1)=FM(1,1) +COS (PHI) *WBT 
FM(1,2)=FM (1,2) -SIN (PHI) ♦WET 
FM(2, 1)=FM (2, 1) +-SIN (PHI) *HET 
FM (2,2)=FM (2,2) +COS (PHI)*WET 
FM (3,1)=FM (3,1) +P3*WET 
FM (4,1)=FM (4,1) +ZET*WET 
FM(7,1)=FM(7,1) +ZET**2*WET 


XODQ2170 

LODQ2180 

LODQ2130 

LODQ2200 

LODQ2210 

LODQ2220 

LODQ2230 

IODQ2240 

LODQ2250 

LODQ2260 

LODQ2270 

LODQ2280 

IODQ2290 

LODQ2300 

LODQ2310 

LODQ2320 

LODQ2330 

IODQ2340 

LODQ2350 

LODQ2360 

LODQ2370 

LODQ2380 

LODQ2390 

LODQ2400 

10DQ2410 

LODQ2420 

LODQ2430 

LODQ2440 

1ODQ2450 

LODQ2460 

LODQ2470 

LOOQ2480 

LODQ2490 

LODQ2500 

LODQ2510 

LODQ2520 
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2 03 


205 

201 

200 

55 

1020 

1021 


FM (8, 1)=FM(8, 1) +ZET**3*WET LODQ2530 

Ffl (3,2)=FM (3,2) +Pa*WET IODQ2540 

FM (5,2)=FM(5,2) ♦ZET**2*W£T LODQ2550 

FM (6,2)=FH (6,2) +ZET**3*MET LODQ2560 

CONTINUE LODQ2570 

DO 205 B=1,8 LODQ2580 

DO 205 N=1,2 10DQ2590 

F«2(I,NN,M,N)=0.0 LODQ2600 

DO 205 K-1,8 LODQ2610 

FK2(I,NK,M,N)=PH2(I,NN,H,N) ♦A(K,M)*FH(K,N) LODQ2620 

CONTINUE L0DQ2630 

CONTINUE LODQ2640 

IF(NOFT3 .EQ. 0) BETURN LODQ2650 

WRITE (MHRITE, 1020) 10DQ2660 

FORMAT ('ODESCRIPTION OF SINE SHAPED FORCES:*) LODQ2670 

WRITE (MHRITE, 1021) LODQ2680 

FORMAT (*0FIRST ELEMENT *, 5X, * NO. OF ELEHS. • , 10X, *RT03V* , 17X, • RT03M* LODQ2690 
8) LODQ2700 

READ (BREAD, 8) (NSTF3(I) , NELF3 (I) , RT037 (I) ,RT03W(I) ,I=1,NOPT3) 10DQ2710 

WRITE (MWRITE, 1015) (NSTF3(I) , NELF3 (I) , HT03 7 (I) ,RT03W(I) ,1=1 , N0PT3) LODQ2720 
DO 300 I=1,NOET3 10DQ2730 

NSTAT=NSTF3 (T) LODQ2740 

NEND=NELF3 (I) LODQ2750 

DO 301 NN=1,NEND L0DQ2760 

NE= (NSTAT-1) +NN IODQ2770 

IF(NE .GT. IK) NE=NE-IK IODQ2780 

L= BKE(NE) -1 LODQ2790 

K1 = N7EC(NF,1) IODQ2800 

K2 = N7EC(NE,2) LODQ2810 

P5=Z(K2)-Z (K1) IODQ2820 

P6=Y (K2)-y (K1) 1ODQ2830 

P7=ANG(K2 )-ANG(K1) 1ODQ2840 

IF(YK(NE) .EQ.1.0) P7=ANG(K2) - R0T(L,2)*ANG(K1) LODQ2850 

IF (YK(NE) .EQ.1 .0, AND- ROT (L,1) -EQ.0,0) P7=HOT (1,2)+ANG (K2)-ANG(K1) IODQ2860 
IF {YK(NE) -EQ.2.0) P7= ANG(K2)- DiOT(NE) - ANG(KI) L0DQ2870 

IF (YK(NE) .EQ.3.0) P7=ROT (L,2) +ANG(K2) -DHOT (NE) - ANG (K1 ) L0DQ2880 
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PIE= 3.141592653589793D+00 LODQ2890 

PIE2- 2.0*PIE LODQ2900 

PIE32= 1.5 ♦PIE 10DQ2910 

ANG2=ANG(K2) LODQ2920 

ANG1=ANG(K1) LODQ2930 

IF {YK (NE) . EQ. 1.0. AND. ROT (L,1) .EQ. 0.0) ANG (K2) =ROT(L, 2) +ANG(K2) LODQ2940 

IF (YK(IIE) . EQ.1 .O.AND.ROT (L , 1) . EQ. 1 .0) ANG (K1) =ROT (L ,2)+ANG(K1) LODQ2950 
IF (YK(NE) . EQ.2.0) ANG(Kl)= DHOT (NE) + ANG(Kl) LODQ2960 

IF (YK (NE) ,E0. 3.0) ANG (K2) = ROT (L, 2) +ANG (K2) LODQ2970 

IF (YK(NE) .EQ.3.0) ANG(K1)= DROT (NE) +ANG (K1 ) LODQ2980 

APHA = PIE / 2.0 10DQ2990 

IF (P5.LT.0.0) APHA= -APHA LODQ3000 

IF (P6.NE.0.0) APHA= ATAN (P5/P6) . LODQ3010 

IF(P6.LT.0.0.AND.P5.LT.0.0) APHA=APHA-PIE LODQ3020 

IF(P6oLT.0.0 .AND. P5.GE.0.0) APHA=APHA+PIE LODQ3030 

BNG (NE + 1) =ANG (K2 ) IODQ3040 

BNG (NE)=ANG(K1) LODQ3050 

IF (P7.GT. (PIE32 ) .AND.APHA.lt. 0.0) BNG (NE+1) =ANG (K2) -PIE2 IODQ3060 

IF (P7.GT. (PIE32 ) .AND. APHA.GT.O. 0) BNG (NE) =ANG (K 1) ♦PIE2 LODQ3070 

IF (P7.LT. (-PIE32 ) .AND.APHA.GT.0.0) BNG (NE + 1 ) =ANG (K2) +PIE2 LODQ3080 

IF (P7.LT. (-PIE32 ). AND. APHA. LT. 0. 0) BNG (NE) =ANG (K1 ) -PIE2 LODQ3090 

BZER=BNG (NE)-APHA LODQ3100 

B1=(-2.*BNG (NE+1) -4. ♦BNG (NE) +6. ♦APHA) /AL (NE) LODQ3110 

B2= (3. ♦BNG (NE + 1) +3. ♦BNG (NE) -6. ♦APHA) /AL (NE) ♦♦2 LODQ3120 

ANG(K2)= ANG2 IODQ3130 

ANG(K1)= ANG1 LODQ3140 

DO 402 K=1,8 LODQ3150 

DO 402 J=1,8 LODQ3160 

A(K,J) =0.0 LODQ3170 

A (1,1)= COS (BNG (NE) -APHA) 10DQ3180 

A (1,2)= SIN (BNG (NE) -APHA) LODQ3190 

A (2,1) =-SIN (BNG (NE) -APHA) 10DQ3200 

A (2,2)= COS (ENG (NE) -APHA) LODQ3210 

A(3,3)=1. LODQ3220 

A (5,1)=COS (BNG(NE + 1) -APHA) LODQ3230 

A (5,2) =SIN (BNG (NE+1) -APHA) LODQ3240 


ORlGliMAL PAGE (S; 

OF POOR quality: 


190 


302 


A {5,3)-P6*SIN (BNG (NE+1 ) ) -P5*C0S (BKG (NE+1) ) 

10DQ3250 

A (6, 1)=-SIN (BNG(NE>1) -APHA) 

LODQ3260 

A (6,2)=COS (BNGCNE + 1) «APHA) 

I0DQ3270 

A {6,3)=P6*COS (BNG (NE + 1) ) ♦P5*SIN (BNG (NE+1) ) 

LODQ3280 

A (7,3)=1. 

IODQ3290 

A(4,4) = 1. 

1ODQ3300 

A (5,4)=AL (NE) 

LODQ3310 

A (5,7) =AL (NE) **2 

LODQ3320 

A (5,8) =AL (NE) **3 

LODQ3330 

A (6,5)=AL (NE) **2 

LODQ3340 

A (6,6) =AL (NE) ♦♦a 

LODQ3350 

P8=B1+2.*B2*AL(NE) 

IODQ3360 

A (7,4) =AL (NE) ♦PB 

LODQ3370 

A (7,5)=2. *AL (NE) 

LODQ3380 

A(7,6)=3.*AL(NE)**2 

LODQ3390 

A (7,7) =AL (NE) ♦♦2*P8 

LODQ3400 

A (7,8)=AL (NE) **3*P8 

IODQ3410 

A (8,4)=1. 

LODQ3420 

A (8,5)=-AL (NE) **2*P8 

1ODQ3430 

A (8,6)=-AL (NE) ♦♦3*P8 

LODQ3440 

A (8, 7) =2. *AL (NE) 

LODQ3450 

A (8,8)^3. *A1 (NE) **2 

LODQ3460 

CALL BINV (A,8,DET,LHI,HMT) 

LODQ3470 

DO 302 M=1,8 

10DQ3480 

DO 302 N=1,2 

L0DQ3490 

FMA(H,N)=0.0 

IODQ3500 

FMB (H,N) =0.0 

LODQ3510 

DO 303 J=1,NOGA 

LODQ3520 

ZET=AL (NE) ♦AXG(J) 

10DQ3530 

PHIP=B1+2,*B2*ZET 

LODQ3540 

PHI=BZEH+B1*ZE'P + B2*ZET**2 

LODQ3550 

WET=AL(NE) *AWG(J) 

LODQ3560 

YZET=0.0 

L0DQ3570 

ZZET=0.0 

LODQ3580 

DO 304 JJ=1,NOGA 

L0DQ3590 

P2=BZER + B1+ZET*AXG (JJ) +B2* (ZET*AXG (JJ) ) ♦♦2+APHA 

LODQ3600 
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YZET=YZET+COS (P2) *ZET*AHG(JJ) 

304 ZZET=ZZET + SIN (P2) *ZET*AHG(JJ) 

P3=YZET*SIN (PHI + APHA) -ZZET’t'COS (PHI + APHA) 
P4=YZET*COS (PHI+APHA) +ZZET*SIN (PHI+APHA) 

FMA (1 ,1)=FHA (1,1) +COS (PHI) *HET 

FHA (2,1) =FHA (2,1) +SIN (PHI) *HET 

F«A (3,1)=FEA (3,1) +P3*WET 

FMA (4,1)^FMA (4,1) +ZET*WET 

FMA (7,1) =FMA (7,1) +ZET**2*WET 

FMA (8,1) =F« A (8,1) +ZET**3*WET 

FMA (1,2)=FMA (1,2) -SIN (PHI) *HET 

FMA (2,2) ^FMA (2,2) +COS (PHI) »WET 

FMA (3,2) =FMA (3,2) +P4+HET 

FMA (5,2) =FMA (5,2) +ZET**2*WET 

FMA (6,2)^FMA (6,2) +ZET**3*WET 

FMB (1,1)=FMB (1,1) +COS (PHI) *ZET^WET/AL (NE) 

FMB (2,1)=FHB (2,1) +SIN (PHI) >*ZET*«ET/AL (SE) 
FMB(3,1)=FMB(3,1) +P3*ZET*WET/AL (NE) 

FMB (4,1) =FMB (4, 1 ) +ZET*^2*HET/AL (NE) 

FMB (7,1)=FMB (7,1) +ZET**3*HET/AL (NE) 

FMB (8,1) =FMB(8,1) +ZET**4*HET/AL (NE) 

FMB (1 ,2) =FMB (1,2) -SIN (PHI) *ZEf ^^HET/AL (NE) 

FMB (2,2) =FMB (2,2) +COS (PHI) ♦ZET+WET/AL (NE) 

FMB (3,2) =FMB (3,2) + P4*ZET*WET/AL (NE) 

FMB (5,2) =FMB (5, 2) +ZET** WET/AL (NE) 

FMB (6,2) =FMB (6,2) +ZET**4*HET/AL (NE) 

303 CONTINUE 

DO 305 M=1,8 
DO 305 N=1,2 
FM3A (I,NN,M, N)=0.0 
FM3B (I,NN,M,N)=0.0 
DO 305 K=1,8 

FM3A (I,NN, M,N)=FM3A (I , N N, M , N) +A (K, M) *FMA (K,N) 

305 FM3B (I,NN,M,N)=FM3B(I,NN,M,N) +A(K,M) ♦FMB(K,N) 

301 CONTINUE 

300 CONTINUE 
EETnEN 
END 
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57 


SUBROUTINE LOADFT (TI«E,NEEADF,FnECH,AL) 

TO FIND THE GENERALIZED NODAL LOAD VECTOR EQUIVALENT 
EXTERNALLY-AFFLIED LOAD 
IMPLICIT REAI*8 (A-H,0-Z) 

DIMENSION DDMMY(8,8) 

DIMENSION FMECH (205) /ELF (8) ,AL(50) 

COMMON/MAT/YOUNG (3,6) ,DS(3,6) ,SNO (3,5 ,6) ,NSFL (3, 6) , P (3,6) ,NLAY 
COMMON /FG/ TK,IKK,ICP,LREF,NOGA,NFL,NI,ICOL(205) ,IN0M(205) 
*,NBC0ND,NBC(7) ,NODEB(7) , KROW (8) ,NDEX(6) ,NIRREG 

COMMON /FORCE/ T1 , AMP1FV, AMP1FM,T2, AMP2FV, AMP2FW, SLOPEV, SLCPEW. 
*AMPFV,AMPFW,ETA(4) ,RTOV(4) ,RT0H(4) ,RT02V(4) ,RT02W(4) ,RT03V(4), 
*RT03« (4) ,FM1 (4,8,2) ,FM2 (2,4 ,8,2) ,FM3A (2, 4, 8, 2) ,FM3B (2, 4, 8,2) , 
♦NOFT1 ,NOFT2,NCFT3, JELEM(4) , NSTF2 (4) ,NELF2 (4) ,NSTF3 (4) ,NELF3 (4) 
COMMON/BOUN/ YK(51) ,NBCONB,NBCB (7) ,NODBB (7) ,MK (51) ,ROT (5,2) 
*,XDIST (6) ,DROT (50) ,NODF (6) 

COMMON /TAPE/ MRIAD, MWRITE , MPUNCH 
SIN (0) =DSIN (Q) 

IF(NREADF ,GT- 0) GO TO 50 
READ (MREAD, 52) T2, AMP2FV , AMP2FN 
FORMAT (3E15. 6) 

WRITE (MWRITE, 400) T2 , AMP2FV , AHP2FW 
400 FORHATCOAT TIME * , D1 5 . 6 , « TANGENTIAL FORCE=* , D1 5. 6, 5X, » NORMAL 
a)RCE-»,Dl5.6,/) 

NREADF=1 

SL0PEV=(AMP2FV-AMP1FV)/ (T2-T1) 

SL0PEW=(AMP2FW-AMP1FW) / (T2--T1) 

IF (TIME .LE. T2) GO TO 53 
T1=T2 

AMP1FV=AMP2FV 
AMP1FW=AMP2FH 
GO TO 51 

AMPFV=AMP1FV+ (TIHE-T1) ♦SXQPEV 
AMPFW^AMP1FW+ (TIME-T1 ) ♦SLOPEH 
DO 57 1=1, NI 
FMECH (I) =0.0 

IF(NOFT1 .EO. 0) GO TO 54 
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DO 100 I=1,N0FT1 
NE=JELEM (I) 

FMV=AMPFV*RTOV(I) 

FMS=AMPFW*ETOW (I) 

DO 101 J=1,8 

101 ELF(J)=FM1 *FBV + FM1 *FMW 

IF (YK (NE) . EO.0.0) GO TO 100 

CALL RGTAT(2,DUMMy,ELF,NE) 

100 CALL ASSEF (NE,IK,ELF,FMECH,ICP) 

54 IF(NCFT2 .EQ. 0) GO TO 55 
DO 200 I=1,NGFT2 
NSTAT=NSTF2 (I) 

REND=NELF2 (I) 

FHV=AMPFV*RTC2V (I) 

FMW^AMPFW*RT02W (I) 

DO 201 NH=1,NEND 
NE= (NSTAT-1) +NN 
IF(NE ,GT. IK) NE-NE-IK 
DO 202 J=1,8 

202 ELF (J) =F«2(I,NN,J, 1) *FMV+FW2 (I,NN, J,2) *FHM 
IF (YK (NE) . EQ.0.0) GO TO 201 

CALL ROTAT(2, DUMMY, ELF, NE) 

201 CALL ASSEF (NE,IK,ELF,FMECH,ICP) 

200 CONTINUE 

55 IF(NOFT3 .EQ. 0) GO TO 90 
DO 300 I=1,NOFT3 
NS?AT=NSTF3 (I) 

NEND=NELF3 (I) 

TX=0.0 

DO 303 NN=1,NEND 
NE= (NSTAT-1) +NN 
IF(NE ,GT. IK) NE=NE-IK 
303 TX=TX+AI (NF) 

PIEP=3. 14159265/TX 
F«V=AMPFV=«'RT0 3V (I) 

FMW = AMPFW*P.TC3W (I) 
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FM»1=0.0 

FMV1=0.0 

XX=0.0 

DO 301 NN=1,NEND 
NE= (NSTAT-1) +NN 
IF(NE ,GT. IK) NE=NE-IK 
XX=XK+AL (NE) 

X=FIEP*XX 
FMW2=SIK(X) ♦FMB 
Ff!V2=SIN (X) *FMV 
AFSW=FMW1 
BFSW=(FMW2-FMW1) 

AFSV=FMV1 
BFSV=FfJV2-FNVl 
FMH1=FHW2 
FMV1=F«V2 
DO 302 J=1,8 

302 ELF(J)=FM3A (I,NN,J,1) ♦AFSV + FM3 A (I, NN, J,2) ♦AFSW+ 

*FB3B 1) *EFSV+FM3B (I,NN,J,2) *BFSW 
IF (YK (NE) , EQ.0.0) GO TO 301 

CALL B0TAT(2, DUMMY, EIF,NE) 

301 CALL ASSEF (NE,IK,ELF,FMECH,ICP) 

300 CONTINUE 

90 IF(NBCOND .EQ. 0) RETURN 
DO 91 I=1,NBCGND 

JT4 = NCDEB (I) *4 
FHECH (JT4-3) =0. 0 

IF (NBC(I) ,EQ. 1 .OR. NBC(I).EQ,2) FMECR (JT4-1)=0. 0 
IF (NBC (I) .EO. 2 .OB. NBC(I).EQ.3) FMECH (JT4-2)=0. 0 

91 CONTINUE 

56 RETURN 

END 
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SaBROrjTIN E PRINT (IT , TIME , HINN , HOUT , APDEN , SPRIN, BMASS,C2 ,NQH , 
*CINETQ,BEP,HET,NV,ES,ASFL,SNS,NV1 ,NV2,NV3) 

IMPLICIT EEAI*8 (A-H,0-Z) 

DIMENSION ASFL (NV 1 , 3 , NV2 , N V3) , SNS { NV1 , 3, NV2, NV3) 

DIMENSION AB(18), ES (3,6,6) 

DIMENSION C0PY(51) ,CCPZ (51) ,BEPS (3) 

♦,BEP (50,3,3,8) , WET (50,3) ,HINN (50,3) , BOUT (50,3) ,FKTP(3) 

♦ ,FQREF(204) ,BMASS(1) , CINE (205) , SPRIN (1) ,FAILI(50) ,FAILO(50) 

CCMMON/VO/ FLVA(205) ,DISP (205) ,DELD(205) ,BINP (50,3) ,BIMP(50,3) 
COHMON/FC/ Y(51) ,Z(51),ANG(51) ,H(51,3) 

COMMON /FRAG/ FH (3) ,FMASS (3) ,FMOI (3) ,TJNK(3) ,CR(3) ,PCGU (3) ,FCGH 
♦,ALFA (3) ,DFCGD (3) ,DFCGW (3) , DALFA (3) ,TREL,FKT(3) , DELTAT, NF, MIMP 
COMMON /EP/ EPSI (50) ,EPSC (50) 

COMMON /FG/ IK,IKK,ICP,1BEF,N0GA,NFL,NI,IC0L (205) ,INOM (205) 
*,NBCOND,NBC (7) , NODES (7) ,KEOW(8) ,NDEX(8) ,NIRREG 
COMKON/MAT/YOUNG (3,6) , DS (3,6) ,SNO (3,5,6) ,NSF1 (3 ,6) ,P (3,6) ,NLAY 
COMMON /TAPE/ MEFAD,HWRITE, MPUNCH 
COMMON /TAM/ MKE(51) 

SIN (0) =DSIN (0) 

COS (Q) =DCOS (Q) 

DO 700 1=1, NI 

700 CINE (I) =0,0 

CALL OMDLT ( BM ASS , DELD, ICOL, NI,CIN E, KROW , NDEX, NIRREG) 

CINET=0.0 
DO 701 1=1, NI 

701 CINET=CINET+DELD (I) *CINE (I) 

CINET=CINET*C2 

IF (IT. EQ. O.AND. NV.NE. 0) CINETO=CINFT 
ELAST=0.0 
DO 702 IR=1,IK 
I=MKE (IE) 

NLAP = NLAY 

IF (KKE(IR) .GT.1) NLAP = 1 
DO 703 J=1,NOGA 
SUM=0.0 

DO 801 M=1,NLAP 
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NS.FIM=NSPL (M, I) 

PRIN0370 


DO 801 N=1,NFL 

PRIN0380 


STSS=0. 0 

PRIN0390 


K=U+ (H-1) *NFL 

PRIN0400 


DO 802 L=1,NSFIM 

PRIN0410 


LL= L+1 

PRIN0420 


AB(K)= (ES (B,L,I)-£S {M,LL,I))/ ES(M,1,I) 

PRIN0430 

802 

1 STHS=STRS+SNS (IF, J,K,L) * &B(K) 

PRIN0440 


STFS= STSS**2 

PRIN0450 

801 

SUM = SUM + STRS*ASFL (IR,J,K,NSFLM)/(AB(K)*Y0UNG(M,I)) 

PRIN0460 

703 

i ELAST= ELAST+ (SUM*WET ) /2.0 

PEIN0470 

702 

CONTINUE 

PRIN0480 


SPDEN=0,0 

PRIN0490 


IFfNQR-.EQ. 0) GO TO 31 

PRIN0500 


DO 30 1=1, NT 

PRIN0510 

30 

FQREF(I)=0. 0 

PRIN0520 


CALL OMULT (SPRIN , DISP,IC0L, NI, FQREF, KROW, NDEX, NIRREG) 

PRIN0530 


DO 32 1=1, NI 

PSIN0540 

32 

SPDEN=SPDEN + DISP (I) *FQREF (I) 

PRIN0550 


SPD£N=SPDEN/2. 

PRIN0560 

31 

ELAST=ELAST/2. 

PRIN0570 


CFRAG=0.0 

PRIN0580 

300 

CINETT=CINETO+APDEN+CFRAG 

PRIN0590 


PLAST=CINETT-CINET-ELAST-SPDEN 

PRIN0600 


WRITE (M WRITE, 1) IT, TIME ,CIN F.TT,C INET , BLAST ,PLAST 

PRIN0610 

1 

FORMATC- J = *,I5,» TIflE (SEC.) =%E15.6,/, 

PRIS0620 


*» WORK INPUT INTO RING (IN.-LB.) =«,E15,6,/, 

PRIK0630 


RING KINETIC ENERGY (IN.-LB.) =*,E15.6,/, 

PRIN0640 


*• RING ELASTIC ENERGY (IN.-LB.) =SE15.6,/, 

PRIN0650 


*♦ RING PLASTIC WORK (IN.-LB.) =*,E15.6) 

PRIN0660 


IF(NQR .EQ. 0) GO TO 33 

PRIN0670 


WRITE (MWRITE, 34) SPDEN 

PRIN0680 

34 

FORMAT {* ENERGY STORED IN THE ELASTIC RESTRAINTS (IN.-LB.) 

=» ,PRIN0690 


♦E15.6) 

PRIN0700 

33 

DO 11 1=1, IKK 

PRIN0710 


COPY (I)=Y (I) +DISP(I*4-3) *COS (ANG (I) ) -DISP(I*4-2) *SSN (ANG (I) ) 

PRIN0720 
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1 1 COPZ(I) =Z (I) +DISP (1^4 -3) ♦SIN (ANG (I) ) +DISP (I*4-2) *COS (ANG (I) ) 
IKP1=IK+1 
WRITE (MHRITE,2) 

2 FORMAT(/,* I • ,5X,' V* W* ,9X, 'PSI* ,9X,'CHI* , 10X, *COPY* , 

*8X, *COPZ* ,9X, *L» , 1 1X, *M*,7X, ‘STRAIN (IN) • ,4X, ‘STRAIN (OUT) *) 

50 DO 21 1=1, IK 

21 WRITE (MWRITE,22) I,DISF (1*4-3) ,DISP (1*4-2) ,DISP (1*4-1) ,DISP (1*4) , 
♦COPY (I) ,COPZ (I) ,BINP(I,2) ,BIMP (1,2) ,EPSI (I) ,EPSO (I) 

22 F0RMAT(I5,9E12.4,2X,E12.4) - 

IF(ICP.GT.O) GO TO 57 

WRITE (MWRITE,24) IKPl ,DISP (IKP 1*4-3) ,DISP (IKPl*4-2) , 
*DISP(IKP1*4-1) ,DISP (IKPl *4) ,COPY (IKPl) ,COPZ (IKPl) ,EPSI (IKPl) , 
a>EPSC(IKPl) 

24 FORMAT (15 , 6D1 2 . 4 , 24X, D12 . 4, D 1 4 . 4) 

57 CONTINUE 

RETURN 
END 
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6.3 Additional Subroutines Needed for CIVM-JET 5B 

These five (5) subroutines consist of; 

MAIN 

IMPACT 

IMPCTE 

PENTRN 

PRINT 

and are listed in the following: 


198 



199 


C 

c. 

c 

c 


(C) rOPYRISaT 1978 HA SSACH OSSTTS INSTITUTE DF TECHNOLOGY 
CTVM JET 5B HAIN PROGRAH FOE VARIABLE THICKNESS ARBITRARILY CURVED 
MULTILAYER RING SUBJECTED TO FRAGMENT IMPACT 
CIVM JET 5B HOUBOLT OPERATOR 
IMPLICIT REAL*8 (A-B,0-Z) 

DIMENSION ASFL (20,3,3,3) , GZET A (20, 3, 8) ,3 NS (20 ,3,8 , 3) , 

3 5NP (20, 3, 8, 3), AEP (20,3,8) , DEP (20, 2, 3,8) 

DIMENSION STIFK (1140) , SPRIN (114 0), AMASS (1140) ,REACK{ 1140) 
o),REAFK (2 05) , REACH (1 1 4 0) , R EAC ( 2 1) 

DIMENSION BMASS(1140) 

DIMENSION DISUM (205) 

DIMENSION EPL2(3) ,EPL 1 (3) 

DIMENSION RHX (51) ,RM (3) ,RMO{3) , CL (3) , YCG (3) , SOL (205) 

DIMENSION DELDH1 (205| , RH (3) , HZ (3) , HREF (50,3,3) ,FLN (205) ,FLVM (2 05) 
a),QACL(205) ,Q VEL (2 05) , TXG (6),TWG(6) ,ES(3,6,6) 

DIMENSION CINETF(3) , TRANEN (3) ,FOTEN (3) 

DIMENSION BEPS (3,3) ,FPI(3) ,EPO(3) 

DIMENSION HDIF(3),DIS (205) 

DIMENSION HNIN (51) ,EFLN (6) ,TPRIM(3) 

DIMENSION DENS(3,6) ,B(6) ,EPS{3,5,6) ,SIG(3,5,6) 

DIMENSION NSBS(50) ,NSEL(50) ,AEPS (3) 

DIME NSION DISM(8) ,DELM(8), DaHMI(8,8) 

DIMENSION BIGA(6) ,BTIMA (6) ,IBIGA (6) ,ISTAA (6) ,ISDRA(6) 

DIME NSION BI (6) ,BTIM (6) ,IBI (6) ,ISUR (6) , ITHR(51) 

COMMON /ACC/ QCD,(2 05) 

COMMON/LEFT/ RMASS(51) 

COMMON /A DSP/ AZET(50) , ASP (50) , YSP (50) ,ZSP (50) ,LKK(50, 11) 
COMMON/IMPT/ VBL(102) , IMCO, JV EL (5 1) 

COMMONAIAT/ taii, imcou 
COMMON/HIT/ TNJ (6) ,HIRP 
COMMON /ML/ MNFL (6) ,MATT (6) 

COMHON/M AT/YOUNG (3,6) , DS (3,6) ,SNO(3, 5,6) ,NSFL (3,6) ,P (3,6) ,NLAY 
COMMON /FG/ IK,IKK,ICP,LREF,NOGA,NFL,NI,IC01 (205) , INU M (205) 

♦ ,NBC0ND,NBC(7) , NODEB ( 7) , KRON (8) , NDEX(8) , NIRRSG 
COMMON /TAPE/ M READ, M WRITE, MP ON CH 
COMMON/FC/ Y (51) ,Z (51) ,ANG(51) , H(51 ,3) 
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CONHONAQ/ FLVA (205) ,DISP(205) , DELD(205) , BINP (50,3) ,BIMP (50,3) 
COMMON /EP/ EPSI (5 0) , EPSO (50) 

COHMON/BA/ BEP (50,3,3,8) ,AL(50) , AXG (3) , AWG (3) , WET (50,3) , 

-CE1 (50,3) ,CE2(50,3) ,CE3 (50,3) ,CM1 (50,3) ,CH2 (50,3) ,CM3(50,3) 
COMMON/SC/ BIG(6) ,BTIME(6) ,IBIG(6) ,ISURF (6) ,ISTA(6) 

COMMON /ELFIJ/ FQEEF ( 205) , REX ( 4) , NQE ,NORP , NORU 

*,NREL (4) ,NRST (4) ,NREU (4) 

COMMON /FRAGV/ aDOT(3) ,SDOT(3) , ADOT (3) 

COMMON /FRAG/ F H (3) , F MASS (3) ,FMGI(3) ,UNK(3) ,CE(3) ,FCGU(3) ,FCGH 

- ,ALFA (3) ,DFCGU(3) ,DFCGW(3) , D ALFA ( 3) , TREL,FKT (3) , BELT AT , NF, HI HP 
COMMON/BO DN/YK(51) ,NBCONB,NBCB (7) ,NODBB(7) ,MK (51) ,fiOT(5,2) 

- ,XDIST (6) ,DROT(50) ,N0DP(6) 

COMMON /BE/ NVEC(51,2), LMT (51 ) 

COMMON/DIS/ ANGDI (50) ,NEDI{50) ,NDIS 
COMMON /TAM/ MKE(51) 

COMMON /THI/ HTH (5) 

COMMON /TIME/ IT 
SIN (Q)=DSIN (Q) 

COS (Q)=DCOS(Q) 

ATAN (Q) =DATAN (Q) 

SQPvT(Q) =DSQET(Q) 

NV1 = 20 
NV2=8 
NV3 = 3 
MREAD=5 
HHRITE=6 
MP0NCH=7 
FORMAT (1015) 

FORMAT( 3015.6) 

FORMAT (3025. 16) 

F0RMAT(3D15.6/(4D15.6)) 

FORMAT (5015. 6) 

F0EMAT(I5,2D15.6) 

FORMAT (5015. 6) 
lERCTN = 1 

WRITE (HHRITE, 5556) IRRON 
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5556 POEMAT (’ 1THIS IS EUN NUHBE E * ,I 5, * FOR THIS CIVW-JET 5B SUBMITrA; 

a •) 

EEA D(HEEAD, 1) IK, IC? , NL AY, LSEF, NOGA, NFL, MM , H 1 ,/l2 , ICON 
READ {MRSAD,1) (NSPL(M,1) ,M=1,NLAY) 

DO 201 M=1,NLAY 
MSFLM= N5FL(M,1) 

201 READ {MREAD,4) DENS (M, 1) , D S (M, 1) , P (H, 1) , (EPS (M,L, 1) ,SIG (M,L,1 ) 
*,L=1,NSF LM) 

READ (MREAD,2) B(1),DELTAT 
MNEL(1)= IK 
IKP1=IK+1 
IKK=IKP1 

IF (ICP. GT.O) IKK=1,K 
NS= IKK 
NI=IKK*4 
MPa = 1 

C IF CONTINUATION CARDS ARE DESIRED REMOVE NEXT CARD MPU=0 
MPU=0 

PIE= 3.1 41 5926535897R3D+00 
IMCOU= 0 
IMCO =0 ■ 

NPZ1 = M 1 
DO 7100 1 = 1, IKK 
DO 7 100 J= 1,3 
7 100 H (I, J) =0.0 

C THE FOLLOWING IS THE INPUT OF THE MAIN STRUCTURE'S GEOMETRY, IF THE 
C USER HAS HIS OWN GENERATING ROUTINE THIS WOULD BE THE APPROPRIATE 


C SPOT IN THE PROGRAM TO INSERT THE ROUTINE. 
READ (MREAD ,2) (Y (I) ,2 (I) ,AN3 (I) ,1=1, IKK) 
READ (MREAD, 5) ( (H (I,M) ,M=1 ,NLAY) ,1=1 -IKK) 

DO 111 1=1, IKK 
111 ANG (I) =ANG (I) I^PIE/IBO .0 
IF (ICP. LE. 0) GO TO 2 02 
Y (IKP1) =Y (1) 

Z (IKPI) =Z (1) 

ANG (IKP1)=ANG( 1) 
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MDIS 
TO 8 100 

(NEDI (I) , ANGDI (I) ,1= 1,NDIS) 
6 )> 


DO 203 K=1,NLAY 
203 H (IKP1,M)=fl (1,M) 

2 02 CONTI WE 

BEAD (BREAD, 5300) 

NDI = fTOIS 
IF (NDIS. EQ. 0) GO 
READ (BREAD ,8 10 1) 

8101 FORMAT (4(15, D15 
DO 8 10 2 1 = 1, NDIS 

8102 ANGDI(I) = (ANGDI (I)‘ PIE)/180. 0 
8100 CONTINUE 

READ (MREAD, 5300) NBR 
5300 FORMAT (2I5) 

MNSFL= NSFL(1,1) 

DO 5666 1=1, NIAY 

IF (MNSFL.lt, NSFL (I, ll ) MNSFL = NSFL (I, 1) 

5666 CONTINUE 

DO 5305 1= 1,IK 
MKE(I) = 1 
MK(I) = I 
LMT(I) = 0 
YK(I) = 0.0 
NVBC (1,2) = 1+ 1 
5305 N7EC (1,1) = I 

IF (ICP. GT.O) NVEC(IK,2) = 1 
IF(ICP.LE.O) MK(IK+1) = IK+1 
IP(NBR.NE. 0) GOTO 1112 
WRITE (M» RITE, 11 13) 

1113 FORMAT (//,’ THERE ABE NO BRANCHES CONNECTED TO 
a) ,THEEEFOEE *,/, » THE NUMBERING SYSTEM FOR NODES 
3)5 UNCHANGED') 

1112 CONTINUE 

IF (NBR.EQ.O) GO TO 5310 

CALL BRAN( NBR, DENS, EPS, SIG, B) 

DO 8888 1=1, NBR 

IF(MNSFL.LT. NSFL ( 1,1+ 1) ) MNS?L= NSPL{ 1,1+1) 
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8888 CONTINUE 
5310 CONTINUE 
LGS?= 0 
LSPP=0 

READ (HREAD,8200) NOP, N ASP,NTERP 
8200 FORMAT (3l5) 

DO 8215 1=1, IK 
DO 8215 J=1,2 
8215 LKK(I,J) = 0 

IF(NOP.EQ. 0) GO TO 82 2 0 
IF (NOP. NE. 2) LGSP=1 
IP(NOP.NE. 1) LSPP=1 
IF (LSPP. NE. 1) GO TO 8220 

RSAD(MREAD,821 0) (NS3S (I) ,NSEL (I) ,AZET (I) ,1 = 1 ,NASP) 
8210 FORMAT (2I5,D 15. 6) 

W8ITE(MNRITE,156) 

156 FORMAT (' OADDITIONAL STRAIN POI NT • , 5X , • EL EMEN T» , 5X, • S 
DO 8216 J= 1,NASP 
IP (NSBS (J) .NE. 1) GO TO 8217 
M= NSEL(J) +1 

IF (ICP.GT. 0. AND.NSEL( J) . EQ.IK) MK{M) =IK+1 
N= MK(M) -1 

LKK (N,1) = 1 + LKK(N, 1) 

NO = LKK(N,1) ♦ 1 
LKK (N, NO) = J 
GOTO 140 0 

8 217 NNNN = N3BS(J) -1 

IF (NODP (NNNN) .EQ. 1) SOTO 8213 
NNNN= NODP(NNNN) 

N= MK (NNNN)+ NSBL(J)- 1 
GO TO 8219 
8 218 N= NSEL(J) 

8219 LKK(N,1) = 1 ♦ LKK(N, 1) 

NO = LKK (N,1) +1 
LKK (N, NO) = J 

1400 H8ITE(MWEITE,145) J,N,AZET(J) 
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204 


145 

8216 

8220 


,9X,I5, 13X^15, 7X, D15.6) 


PO.RM AT (' 

CONTINUE 
CONTINUE 
IF (NDIS.EQ.O ) 30 TO 8 140 
IF (NBR.EQ.O) GOTO 8 145 
IP(NDI.EQ.O) GOTO 8 145 
DO 8146 J= 1,NDI 
M= NEDI(J) +1 
N = MK (M) -1 
NEDT (J) = N 
9146 CONTINUE 
8145 WRITE(MHRITE,8111) 

WRITE (MWRITE,8 120) (NEDI (I) ,I=1,NDIS) 

8111 FORMAT(*0EACH OF THE FOLLOWING ELEMENTS HAS A SLOPE DISCONTINUITY 
3AT ITS FIRST NODE*) 

R120 FORMAT (• *, 2515) 

WRITE (HBRITE ,8 1 12) 

8 112 FORMAT (»OTHE GLOBAL 
a(8Dl5.6)) 

DO 8130 1= 1,NDIS 
M=NEDI Cl) 

YK(H) = 2.0 + YK (M) 

L1= N7EC(M,1) 

DROT(M) =ANGDI(I) - ANG(Ll) 

8130 CONTINUE 
8140 CONTINUE 

EEAD(MREAD,3) (A XG (K) ,K=1,NOGA) 

READ (MREAD.3) (AWG (K) ,K=1,NOGA) 

READ(MHEAD,3) (TXG (K) ,K=1,NFL) 

READ (MREAD,3) (TWG (K) ,K=1,NPL) 

REA D(MREAD,1) NBCOND, (N BC (I) , NODES (I ) ,1= 1 , NBCOND) 

IF (NBR.EQ.O) GO TO 748 
NIT = NBCOND+ 1 
NITl = NIT -1 
NBCOND= NBCOND + NBCONB 
IF (NBCONB.EQ. 0) GO TO 751 


(ANGDI (L) ,L = 1,NDIS) 
SLOPE (RAD.) AT EACH 


DISCONTINUITY EQUALS:*,/, 
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DO 750 LOP= 1,NBCONE 

MBC (NIT1 ♦ LDP) = NBCB (LOP) 

750 NODES (NIT 1 + LOP) = NODBB (LOP) 

751 IF (NIT1.EQ.0) SO TO 74P 
DO 753 LOP = 1,NIT 1 

NTI = NODES (LOP) 

753 NODEE(LOP) = MK(NTI) 

748 CONTINUE 

EEAD(MREAD, 1) NQR, NDRP, NORU 

CALL IDENT (NQR,B, DENS,EPS, SIS, N BE) 

NRITE(HHRITE,402) 

402 FORMAT (///,» GAUSSIAN STATIONS AND WEIGHTS:') 

WETTE(MWRITE,400) (L,AXG(L),L, AHG (L) ,L=1 ,NOGA) 

WRITE (MHHITE,40 1) (L,TX3 (L) ,L,T»G(L) ,L=1,NFL) 

4 00 FOENAT (' * ,12X, • AXG* , 13, 2 X, ' = • ,F20. 1 5 ,8X , » AW G* , I3, 2X , * = • , P20. 15) 
401 FORMAT (• * , 1 2X, *TXS ' , I 3, 2X , ' = * , f 20. 1 5, 8X, »T KG * ,13 ,2X, * = • ,F20 .15) 
o C FOR MEMBRANE SET TXG=0. 0 AND TWG=2.0 FOR ONE DEPTHHISE STATION 
NBRi = NBR+1 
DO 651 K=1,NEE1 
NLAP= NLAY 
IF(K.GT. 1) NLAP=1 
DO 76 M= 1,NLAP 
NSFLH=NSFL(M,K) 

ES(H, 1,K) = SIG(M,1,K) /EPS (M,1 , K) 

IF(NSFLM-I) 77,77,73 
78 DO 79 L = 2,NSFLH 

7 9 ES (M ,L,K)=(SIG (M,L,K)-SIG (H,L-1,K) ) /(EPS(M,L,K) -EPS (H,L-1 ,K) ) 

77 ES(H,N3FLM+1 ,K) =0.0 
DO 30 L=1,NSFLM 

80 SNO(M,L,K) = ES(H,1,K> *EPS(H,L,K) 

YOUNG (M,K)= ES(M,1,K) 

76 CONTINUE 
651 CONTINUE 
IC = 0 

DO 7 0 IR=1,IK 

IF (YK (IR).EQ. I.O.OR.fK (IE) .EQ. 3.0) IC=IC4-1 
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L1= NVEC(IH, 1) 

L2 = NVEC(IR,2> 

NLAP= NLAY 

IF (MKE(IE) .GT« 1) NLAP=1 
DO 70 J=1,N05A 
DO 71 H=1,NLAP 

IF (YK (IE ), NE. l.O.AND. YK (TR) . NE. 3.0) GOTO 600 

IF (ROT(IC,1) .EQ.0.0) GO TO 610 

EH(K)= HTH(IC)* (1,0-AXG (J)) +H(L2,M) *AXG(J) 

GO TO 71 

610 RH(i^i)= H(L1^K)* (1.0-AXG (J) ) + HTH (IC) *AXG ( J) 

GO TO 71 

600 RH(M) = H{L1 ,M) * (1 .0-AXG (J) )+H (L2,H) *AX3 (J) 

71 GONTINUE 

HZ (1)=RH(1) /2. 

IF (KLAP. EQ, 1) 30 TO 7 2 

g DO 73 H=2,N1AY 

o 73 HZ(H)=HZ (8-1)+ (RH{M) +RH(M-1))/2. 

72 CONTINUE 

CMI (IR, J) =0.0 
CM2 (IR,J) =0.0 
CM3 (IR,J) = 0. 0 
CE1 (IR, J) =0.0 
CE2 (IR, J) =0.0 
CE3 (IR,J)=0.0 
1= MKE(IR) 

DO 74 M=1,NLAP 
HREF(IE,J,H) =HZ (M) -HZ(LREF) 

CM 1 (IR ,J) =CM1 (IR,J) +DENS (M, I) (I) ♦RH (M) 

CM2 (IR,J) =CM2(IB,J) -DENS (M, I) * B (I) *R H (M) * HREF (IH,J,M) 

CM 3(IR,J) =CM3 (IR, J) + DENS («,I) *B (I) * (RH (K) **3/12 . 

> +HREP(IR,J, M) >^^*2*RH(M) ) 

C FOR MEMBRANE SET CE2 AMD CE3 = 0.0 

CE1 (IR,J) =CE1 (IR,J) +YOUNG (M,I) * B(I) *RH (M) 

CE2(IR,J) = CE2 (IR , J) +YOUNG (M,I) (I) ♦RH (M) ♦HREF (IR, J,M) 

CE3(IR,J) = CE3(IR, J| +YOUNG (M,I) *3 (I) > (RH (M) ** 3/12.0 
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‘'+HRE?(TB,J,H) **'2*RH {i ) ) 

NSPLM=NSFL (M,I) 

DO 75 N = 1,NFL 
K=N+ (n- 1) ♦NFL 
GFL=RH (M) ^TWG (N) ♦B(I| /2. 0 
GZSTA(IR, J,KJ =RH{H)*TXG (N)/2 . +HREF (TR, J, H) 

DO 7 5 L=1,NSFLH 

ASFL (IE, J, K, L) = GFL*(BS(M,L,I)-ES (M, L+ 1 ,I ) ) /ES (K , 1 ,I ) 
75 CONTINUE 

74 CONTINUE 

70 CONTINUE 

IF(NBR.NE.O) GOTO 213 
DO 15 1=1,8 

15 ICOL(I) =1 
IKtn=IK-1 

IF (ICP. GT. 0) GO TO 17 

DO 16 I=3,IKP1 

IK4=I+4 

IK3=IK4-1 

IK2=IK4-2 

IK1=I K4-3 

JJ= (1-1) ♦4-3 

ICOL (IK1) =JJ 

ICOL (IK 2) =JJ 

ICOL (IK 3) =JJ 

ICOL(IK4) =JJ 

16 CONTINUE 
GO TO 19 

17 DO 18 I=3,IKnl 
IK4=I +4 
IK3=IK4-r 
IK2=IK4-2 
IK1=IK4 -3 

J J= (I- 1 ) ♦N- 3 
ICOL (IK 1) =JJ 
ICOL (IK 2) =JJ 
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IC0L(IK3)^JJ 
ICOL (IK 4) =JJ 
18 continue 

ICOL (IK -"4) =1 
ICOL (IK*4-1 ) =1 
IC0L(IK*4 -2) =1 
ICOL { IK* 4- 3) =1 
1 9 CONTI MTE 

218 INCH (1)= 1 

DO 99 1=2, NI 

99 INUH(I) =I-IC0L{I^1)+TNUH(I-1) 

DO 993 1=1, NI 

990 INUM (I) =INnK (I) -ICOL (I) 

NIRREG=0 
INDEX=0 
ISET= 1 

DO 116 I=1,KI 
L=ICOL(I) 

IF (ICOL (I)-ISRT) 1 17, 1 16, 1 19 
119 ISET=ICOL(I) 

GO TO 1 16 

117 NIEREG=NIRPEG+1 

IP (NIRREG-NI/2)711,711,90 
711 KROW (NIRREG) =I 

NDBX CNIREEG) =INDEX 
116 INDEX =I NDEX+I-L 

90 ISIZE=NI+INUM (NI) 

WRITE (MHRITF,9 1) ISIZE 

91 FORMAT(/, • SIZE OF ASSEHBLED MASS OR STIFFNESS MATRIX**, X5) 
IF (I SIZE. LE. 2060) GOTO 6012 

WRITE (HWRITE,601 1) 

6011 FORMAT ('OTHE SIZE OF THE STIFFNESS MATRIX HAS EXCEEDED 2060. 
a) RUN HAS BEEN TERMINATED. CHANGE DIMENSION OP STIFK IN*,/, » 
S,ELM.PB,AND TSTEP , ALSO CHANGE DIMENSIONS FOR AMASS, BMASS,AND 
3N») 

GOTO 150 
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6012 CONTINUE 

WRITE (MW RITE, 7850) 

7850 FORHAT(//, • LUMPED MASS MATRIX FOR EACH ELEMENT:*,//) 
ELMPB=1.0 

CALL ELMPP (AMASS,STIFK,ISIZE,AfeP,DEP,NV1,REACK,REACH, 
DO 1261 IR = 1,IKK 
J= I.R+4-3 
K= INUM(J)+J 
RMASS(IR)= AMASS(K) 

SOL(J)= AMASS (K) 


NS 

O 

VD 


K = I NUM{J+1) +J+ 1 
SOL{J+1) = AMASS (K) 

K= INUH(J+2) +J+2 
SOL(J + 2) = AMASS (K) 

K- IHUH(J+3) +J+ 3 
SOL(J+3) = AMASS (K) 

1261 CONTINUE 

WRITE (MW RITE, 7836) 

WRITE (HWEITE, 7837) (SOL(L) ,L=1,NI) 

7836 FORMAT (//,' THE TRANSLATIONAL AND ROTATIONAL MASSES AT EACH NODE 
aRE: * ) 

7837 FORMAT (* *,4D25.15) 

DO 23 L = 1,ISIZE 
23 SPRIN(L)=0.0 

IF (NQR . EQ, 0) GO TO 22 
CALL QREM(AL,AXG, AW3, SPHIK) 

DO 360 I=1,ISIZB 
360 REACK(I)= REACK(I)t SPRIN(I) 

22 CONTINUE 

IF (NBCOND.EQ.O) GOTO 93 
DO 92 I=1,NBCOND 
JT4=NODEB (I) =*4 
JT4 M3=JT4-3 
JT4M2=JT4-2 
JT4M1=JT4-1 

CALL ERC(JT4M3, AMASS, NI,ICOL,INUM) 
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ERC (JT4Ml,SPEIN,NI,ICOL,I»Df1) 
EPC(JT4H2,SPEIN,NI,J;C0L,IIIUM) 


IF (HBC (I). BQ- I.OR.NB: (I) .EQ.2) CALL ERC(JT4B1 , AM ASS ICOL, INO M) 
IF (NBC (I) .EQ.2, OR. NBC (I) .EQ.3) CALL EP C (JT4M2 , AKASS , NI# ICOL, I NUN) 
IF(NQB.EQ. 0) GOTO 92 
CALL ERC(JT4M3, SPRIW , NI , ICOL, IN UM) 

IF (NBC(I) .EQ.I.OR.NDC(I) .EQ.2) CALL 
IF(NBC(I) . EQ.2. OR.NBC(I). EQ.3) CALL 
92 CONTINUE 
9 3 CONTINUE 

WEITE(I!HEITE,7851) 

7851 FORMAT {//,• THE ASSEMBLED MASS MATRIX:',//) 

BRITE(M8RITEr7852) (AMASS (L) ,1 = 1 ,ISIZE) 

7852 FORMAT (» *,8D15,6) 

HRITE(MWPITE,7853) 

7853 FORMAT (//,' THE ASSEMBLED STIFFNESS MATRIX:',//) 
HRITE(MWRITE,7852) (STIFK (L) ,L = 1 ,ISIZE) 

DO 948 I=1,ISIZE 

948 BHASS(I)= AMASS(I) 

CALL FAC(BHASS,ICOL, KROW, NDEX,IDET, MHRITE, NI, NIRREG,INUM) 
CALL TSTE P(BM ASS, STIFK, DELT AT) 

DO 95 3 I=1,ISIZE 
953 BMASS(I)= AMASS(I) 

WRITE (MNRITE, 52) DSLTAT 

52 FORMAT (/,» TIME STEP SIZE USED IN PROGRAM (SEC) = ' , D1 5. 6) 

DO 8 951 J=1,NOGA 

3951 EPL2 (J)= 0.0 
EPAS2= 0.0 
BIGL=0.0 
BISAL=0.0 
IBIGAL=0 
IBIGL=0 
ISUBFL=0 
ISURAL=0 
ISTAL =0 
ISTAAL=0 
H= NBR+1 
DO 10005 J= 1,M 
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BIG(J) = 0.0 
BIGA(J) = 0. 0 
BI(J) =0,0 
I BIG A (J) = 0 
IBIG (J) = 0 
IBI(J) = 0 
ISTA (J) = 0 
ISTAA(J) = 0 
BTIHE (J) = 0.0 
BTIMA(J) =0.0 
BTIM ( J) = 0. 0 
10005 COST I NOE 

DTSQ=CE1TAT**2 
C2=1./(2. =^ELTAT**3 
MCRIT=0 
IT=0 

TISE=0.0 
DO 50 1=1, NI 
DELD (I) = 0.0 

50 DISP(I) = 0. 0 
DO 51 Ifi = 1,IK 
NLAP=NLAY 

IF (MKE (IE) .GT. 1) NLAP=1 
NO= nKE(IE) 

DO 5 1 J=1, NOGA 
BINP(IR, J)= 0.0 
BIMP(IH,J) =0.0 
DO 51 M=1,NLAP 
NSFLS= NSFL(«,NO) 

DO 5 1 N=1,NFL 
K= N4- (H- 1)*NFL 
DO 51 L=1, NSFLH 
SNP(IR, J,K,L)= 0.0 

51 SNS (IE,J,K,L) =0.0 
IF(ICP.LE. 0) GOTO 55 
DO 54 K=1,4 
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DISP (IK’^4+K) = DISP (K) 

54 DEI.D (IK* 4+K)= DELD{K> 

55 CONTTNOE 
L=1 

READ (flREAD,30 1) NF,EFLN(L) 

IF(EFLN(L) .GT.0.0) Gl TO 305 

EFLN (L)=DELT AT+SQRT (?OUNG(1, 1) /DENS (1,1) ) 

IF(NLAI .EQ.1) GO TO 305 
DO 306 M=2,NLAy 

BOLD^DELTAT*^ SQRT(IODNG (M , 1) /DENS(M, 1) ) 

IF (EFLN(L) .LT.BOLD) EFIM (I) =BOLD 
306 CONTIMOE 
305 CONTINUE 

IF(MBR.EQ. 0) GOTO 303 
JNBE= NBR+1 
DO 307 I=2,JNBR 

3 07 EFLN{I)= DELTAT^ SQRT( YOUNG (1,1) /DENS < 1,1) ) 

308 CONTINUE 

DO 302 1=1, NF 
ALFA (I)= 0.0 

READ (MREAD,303) FH(I| , FCGN(I) ,FCGU(I) ,FMASS (I) ,FHOI(I) 

READ (BREAD, 3 03) ONK(I) 

READ (BREAD, 303) ODOT(I) , WDOT(I) , ADOT (I) , TPR IB (I) ,CR (I) 
FKT(I)= PHASS(I)* (UDOT (I) **2 +HDOT (I) **2) *FMOI (I) *ADOT(I) **2 
FKT(I)= FKT(I) /2. G 
302 CONTINUE 
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310 

312 

313 

314 


WRITE (BHRITE,312) BAIN4950 

WETTE(BWEITE,313) NF,EFLN(1) BAIN4960 

FORM AT (/,* FRAGMENT PROPERTIES',/) BAIH4970 

FORMAT( 10X, 'NO. OF FRAGMENTS =',I5,/, MAIN4980 

*10X, 'EFFECTIVE LENGTH OF IMPACT (IN) ON BAIN STRUCTURE =',D15.6/) BAIN4990 
WRITE(MWRITE,314) (I,FH(I) ,FBASS (I),FMOI(I) ,FCGO (I),FCGW (I) , BAIM5000 

*ALFA (I), UDOT (I) , HDOT (I ) , ADOT (I) ,CR(I) ,DNK(I) , FKT (I) , 1= 1 , NF) BAIN5010 

FORMA T( 12X, 'FRAG. NO. =' ,15,/, BAIN5020 

♦12X, 'DIA METER (IN) =',E15.6,/, BAIN5030 

*12X, *HEIGHT(LBS-SEC**2/IN.) =',E15.6,/, MAIN5040 



* 12X, 'MOMENT OF INSfiTIA (IN-IB 

-SEC* *2) 

— *^E15«6//j 

MAIN5050 

^12X,» CG Y COOSDINATE (IN) 


=',E15.6,/, 

MAIN5060 

♦12X,' CG Z COORDINATE (IN) 


= ® * El 5a 6 » 

MAIN50 70 

♦12X, *ANG DLAR ROTATION (DEG) 


= * /E 1 5a 6 f/ 0 

MAIN5080 

♦ 12X,'VEL IN Y DIE (IN/SEC) 


= ' » El 5a 6 ^ ^ 0 

HAIN5090 

♦12X, *VEL IN Z DIR (IN/SEC) 


— ' » E 15a 6 $/ 0 

MAIK5100 

♦ 12X,' ANGULAR VEL (DEG/SEC) 


= ',E15.6,/, 

MAIM51 10 

*12X,'COEFF OP RESTITUTION 


— * » B 1 5. 6 0/ 0 

MAIN5120 

*12X,'COEFF OF FRICTION 


=',E15a6,/, 

MAI N5 130 

♦12X, 'INITIAL KINETIC ENERGY 

(IN-LB) 

= ',E15a6^//) 

MAIN5140 

315 CONTINUE 



MAIN5150 

HRITE(MWRITE,3 09) (TPRIM (JK) ,JK = 1,NF) 


MAIN51 60 

309 FORMAT (' THE TPRIM FOR EACH 

FRAGMENT IS; 

*,3X,3Dl8a6 ,//) 

HAIM5170 

DO 6111 T=1,NI 



MAIN 5 180 

DELDM1 (I)= 0.0 



MAINS 190 

FLVA (I) =0.0 



MAIM5200 

FLN(I) =0.0 



MAIN 52 10 

QACL(I) =0.0 



MAIN5220 

QCD(I) =0.0 



MAIN52 30 

6111 QTEL (I) =0.0 



MAIN5240 

DO 37 L=1,ISIZE 



MAIN 5250 

37 AMASS (L)=2. *AMA SS (L) ♦DTSQ*(STIFK (L) -i-SPEiN (L) ) 

HA1N5260 

CALL FAC(AMASS,ICOL,KEOW,NDEX,IDET,MWRITE,NI ,NIRRE3 ,INUM) 

MAIN 5270 

MIRP=C 



MAIN5280 

XY= TPRTM(I) /DELTAT 



MAIH5290 

IT= XY+0.02 



MAIN5300 

TIHE= IT*DELTAT 



MAIN5310 

DO 1270 NPQ=1,NF 



HAIH5320 

1270 TNJ(NPQ) = 1.0 



MAIN5330 

IF(NF.EQ.I) GOTO 12P0 



MAIN 53 40 

DO 1275 NTS=2,NF 



MAIN5350 

IF(TPRIM (NTS) .GE.0,0) GOTO 1275 


MAIN5360 

MIRP= NTS 



MAIN5370 

GOTO 123 0 



MAI N53 80 

1275 CONTINUE 



HAIN5390 

1280 IF(MIRP.EQ.O) GOTO 1286 
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DO 1285 NPH= HIEP,NF 

1285 TNJ (NPN) = 0. 0 

1286 DO 1287 1=1, NF 

DFCGU (I) = rjDOT (I) *DELTAT 
DFC3W (I) = KDOT(I) ♦DELTAT 
DALFA(I)= ADOT (I)*DE1.TAT 

FCGrj(I) = FCGU(I) +aD0T (T) *TPPrM (I) *TNJ(I) 

FCGW {!)= FCGW (I) +WDOr (I) *TPRIM(I) *TNJ(I) 

ALFA (I) = ADOT(I) *.TPFIjl (I) »TNJ{I) 

DO 1020 1= 1, IKK 
JVEL{I) = 0 
EPSI(I)= 0-0 
EPSO(I) =0.0 
FOEMAT (2 (15, D20. 13) ) 

FORMAT (2T5,2D20- 13) 

FORMAT (315, 2D20. 13) 

FORMAT (4D20. 13) 

FORMAT (2I5,2D20 . 13,15) 

FORMAT (15, 6D12. 4) 

WRITE (MW RITE, 8255) M2, NOP 

FORHAT(‘0THE FOLLOWING IS THE TIME SOLtITION OF THE FRAGMENT- 
a)IMPACT* ,/,* OUTPUT WILL BE PRINTED ETERI*, 15, • 

SOUTPUT OPTION* ,13, •-» ,/,» REACTION FORCES APPLIED TO 


12 87 


1020 

83 
337 
3 86 

84 
86 
89 

8255 
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a WILL BE PRINTED AT EACH OUTPUT CYCLE*,/,* FOR NODES AT WHICH BOUNMAIN5640 
aDARI CONDITIONS ARE SPECIFIED. D.O.F. THAT ARE*,/,* NOT HESTRAI NEWAIN5650 
aO AT THAT NODE WILL HAVE A REACTION FORCE = 0.0.*,/,* ALL IMPACTS MAIN5660 


aWILL BE DESIGNATED AND ALL THE FRAGMENT ENERGIES WILL 
SED AFTER EACH IMPACT.*) 

NLAYP1= NLAY+1 
IF (NLAYP1- GT.3) GOTO 962 
DO 96 1 1=1, IKK 
DO 961 J=NLAIP1, 3 
961 H(I,J) =0.0 
982 CONTINUE 

READ (HREAD ,1) ICONT 
IF (ICONT.EQ. 0) GOTO 120 


BE*,/, * 
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BEAD (MEBAD,8 3) IT ,T IM E, IMC OD, T All 
H=NBe + 1 

BEAD (KREAD, 86) (IBIGA(L) , ISTAA (L) ,BTGA (L) .BTIJIA (L) ,ISURA (L) ,L= 
READ (MREAD ,386) (IB IG (L) ,I SURE (L) , 1ST A (L) , BIG (L) ,BT IME (L) , 1= 
READ (MREAD ,387) (IB I (L) ,ISUR (L) ,BI (L) ,BTIM (L) , L=1, M) 

READ (BREAD ,89) MIRP, (TNJ (I) ,1= 1,NF) 

READ(«READ,84) (DTSP (I) ,1=1 ,NI) 

READ (MREAD ,84) (DELD (I) ,1 = 1, NI) 

READ(MREAD,84) (DELDM1 (I) ,1=1 ,NI) 

READ (BREAD, 84) (FLVA (I) ,1 = 1, SI) 

READ (BREAD ,84) (Q VEL (I) ,1= 1 , NT) 

,84) (QACL(l) ,I=1,NI) 

r84) ( { ( (SNS(IR, J,K,L) ,L= 1,MNSEL) ,K=1 ,NFL) ,J=1,NOGA 


to 

!-■ 

Ln 


READ (MREAD 
READ (MREAD 
«IR= 1,IK) 

READ (MREAD 
*IE=1,IK) 

READ (MREAD 
♦,ADOT(J) ,J = 1 ,SF) 

WRITE (MWRITE,8265) 

8265 FORMATC OTflIS IS A CDNTINUATION RUN*) 
C START OF TIME SOLUTION 


,34) ( ( ( (SNP(IR, J,K,L) ,L= 1,MN3FL) ,K=1,NFL) ,J=1,NOGA 
, 84) (FCGU(J) , FCGW(J) , ALFA( J) , UDOT (J) ,HDOT (J) 


120 


128 

127 

45 


121 
601 0 


IT =IT +1 
TIME=rr +DE1TAT 
IF(ICP.IE.O) GO TO 127 
DO 128 K=1,4 
DISP(IK^4+K) =DISP(K) 

DELD (IK* 4+ K) = DELD (K) 

CONTINUE 

CALL IMPACT (EFLN, IT, NBR,QACL,QVEL, BHASS, A MASS, FLN) 
DO 121 1=1, NI 
FLN (I) = FLVA (I) 

FLVA (I) =0.0 
FLVM (I) =0.0 
CONTINUE 

I F(HIRP.GT.NF.DE.MIRP . EQ .0) GOTO 6020 
TI= (IT+DELTAT)- (TPEI.1 (l)-TPRIM (MIRP) ) 
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I7(DABS(TI) .GT.DELTAT) GOTO 60 20 
TNJ(fJIEP) = 1.0 
MIRP= MIRP+1 
GOTO 601 0 

6020 DO 8 22 1 = 1 ^NF 

FCGa(r)= FCGU(I) +DFCGU (I) ♦TNJ (I) 

FCGff{I)= FCGW (I) +DFC3M (I) * TNJ (I) 

822 ALFA (2) = ALFA (I) + DALFA(I)* TNJ (I) 

DO 122 1=1, NI 

DISP(I)= DISP(I) + DELD(I) 

122 CONTINUE 

CALL STBESS(DELTAT, ASFL, GZETA, SNS, SNP,N VI, NV2, NV3) 

IF (IM CO. EQ. 0) GOTO 33 3 
IHCO=0 

DO 6301 1=1, NF 

TRANEN (I)= FMSS (I) /2. 0* (UDOT(I) **2+WDOT (I)'' -^2) 

ROTEN(I)= FMOI(I)/2.0* AD0T(I)**2 
CINETF (I)= TRANEN (X) + ROTBN (I) 

6 301 CONTINUE 

9RITE (N9RITE,6302) (E ,TRANEN(I) ,BOTEN(J) , CINETF (I) ,I=1,NF) 
6302 FORMATC ' ,2 (* FR AG* ,12, * TE=',D12.4,* BE=»,D12.4,* TOE=», 

9D12. 4,4X) ) 

DO 332 J=1,IKK 

QVEL {J*4-3)= 2, 0*DELD (J*4~3) /DSLTAT-QVEL(J*4-3) 

QVEL (J'i=4-2) = 2.0*DELD (J^'4-2) /DELTAT-QVEL (J»4-2) 

QVEL(J*4)= (3.0*DELD(J*4) -DELDMI (J*4) ) / (2-0*DELTAT) 

QVEL (J*4-1) =(3. 0=^DELD (J* 4- 1) -DELDM 1 (J* 4~ 1) ) / (2. 0*DELTAT ) 

332 CONTINUE 
GOTO 356 

333 CONTINUE 

DO 355 1=1, NI 

QVEL (I)= (3,0*DELD(I) -DELDM1 (I) )/ (2.0 ♦DELTA!) 

355 CONTINUE 

356 CONTINUE 

DO 340 1=1, NI 
DELDfil (I) = DELD (I) 
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DISUM (I) = 0* (DISP (I) <-DELTAT*QVEL (I) ) 

DIS (I)= DISP (I) 

340 CONTINUE 

CALI OMUIT (BMASS rDISU M.ICOL, NI^FLVM, KROH,NDEX,NIRBEG) 

DO 341 1=1, NI 

FLVM(I)= - {2. 0*FLVA(I) -FLN(I) ) ♦DTSQ+FLVM (I) 

341 CONTINUE 

IF (NBCOND .EQ. 0) GO TO 124 
DO 125 1=1, NBCOND 
JT4=NODEB{I) *4 
FLVM{JT4-3)=0.0 

I?(NBC(I) .EQ.1 .OR, NBC<I).EQ,2) FLV M (JT4- 1 ) =0. 0 
IF (NBC (I) .EQ, 2 .OR. NBC(I).£Q.3) FI VM { JT4-2) =0. 0 
125 CONTINUE 

124 CALL SO LV (AMASS, FLV M, DIS, ICOL, K ROW, NDEX, NI,NIRREG) 

DO 430 1=1, NI 
DELD(I)= DIS (I)-DISP(I) 

QACL(I) = 2.0D+00 * (OELD (I) -DELTAT^QVEL (I) ) 

QCD(I)= (DEID(I) -DELDM1 (I) ) /DTSQ 
4 30 CONTINUE 

DO 6701 1=1, IKK 
ITHR (I) = 0 
EPSI(I) =0.0 
6 701 EPSO (I) =0.0 
MIZ=0 

NPZ= IT-NPZ1 
IF(NPZ.NS.O) GOTO 673 0 
MIZ= 1 

NPZ1 = NPZ1+M2 
IF (LGSP. EQ.O) GOTO 6700 
WRITE (MW HITE, 11 100) 

WRITE (M WRITE, 67 05) IT 
6705 FORMAT (*0 CYCLE = ’ , 18) 

WRITE (M WRITE,67 07) 

6707 FORMAT (» ELEMENT • ,9X SI ', 4X ,» STA 1 * , 4X, * S3 ' , 2 1 X, • SI • , 4 X , • SI A 2*, 
* 4X, * SO' ,21X, » SI' ,4X, » STA 3', 4X,'SO') 
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C GAUSSIAN STATION STRAIN CALCULATION 
6700 DO 7161 IR=1,IK 
K1= NVEC{IS^1) 

K2= NVEC(IR, 2) 

LSS= HKB(IR) 

DO 8018 K=1,8 

INDEX= (K1-1)*4+K 

IP(K.GT. 4) IKDEX= (K2- 1) 4 

DISN(K) = DISP (INDEX) 

8018 CONTINUE 

IF(?K(IR) .EQ.0.0) GOTO 901 

CALL ROTAT (1,D0MNY,DISM,IR) 

901 CONTINUE 

DO 604 I=1,NOGA 
DO 604 J=1,3 
BEPS (I,J)= 0.0 
DO 604 K = 1,8 

604 BEPS (I,J)=BEPS (I ,J) +BEP (IR,I,J,N) * DISIJ(K) 

NLAP= NLAY 

IF(MKE (IR) .GT.1) NLAP =1 
H1= H (K1 ,1) 

H2 = H (K2, 1> 

N=HKB(IR)-1 

IF(YK(IR). EQ. 1.0.AND.ROT(N,1).EQ. 1.0) H{K1,1)= HTH (N) 

IF (YK(IR) . EQ . 1. O.AND.ROT (N,1 ) .EQ.0.0) H(K2,1)= HTH (N) 
DO 8908 LM= 1,NLAP 
8908 HDIP(LM) = H(K2^LM)- H (K1 ,LH) 

DO 60 M=1,NOGA 
HINU=0.0 
HOUT =0.0 

TF(NLAY.EQ.I) GOTO 8931 
IF(I.REF-2) 8935,8936,8937 

8935 HL1= (H(K1,1) +HDIP(1) •!'AXG(H))/2. 0 
HL2= HL1+H (K1,2) +HDIF (2) *AXG(H) 

GOTO 8938 

8936 HL1= - (H(K1,2) +HDIF (2) *AXG (H) )/2 .0 
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HL2= -HL1 

IF(NLAP.EQ.2) HL2=0.D 
GOTO 8938 

3937 HI.2=- (H(KT,3) +HDIF(3> ^AXG(M) ) /2. 0 
HL1= HL2-(H(K1,2) +HDIF (2)*AXG (M) ) 

8938 CONTINUE 

DO 8909 1M= 1,LPEF 
DIVI= 1.0 

IF(LM.EQ.LREF) DIVI=2 .0 

HINN= HINN+ (H(K1,LM)+ H DIF( LM) ♦AXG ( M) ) / DIVI 
8909 CONTINUE 

DO 8911 LM= LB:EF,NLAP 
DI7I= 1.0 

IF (LM.EQ .LREF) DIVI=2.0 

HOUT= HOUT+ (H(K1,1M>+ HDIF(LH)* AXG{M )) / DIVI 
8911 CONTINUE 
GOTO 8932 

8931 HINN= (H(K1,1)+ HDIF (1 )*AXG (H) ) /2.0 
HOOT = HINN 

HL1= 0.0 
HL2= 0.0 

8932 CONTINUE 

FABE= BEPS (H, 1} ^-3EPS(M,2) ♦♦2/2.0 
' +BEPS (M, 1) *»2/2. 

IF (NTEEF -EQ. 0) GOTO 8939 
IF (NLA P.EQ. 1) GOTO 89 39 
C FOE HENBRANE SET HLI AND HL2 =0.0 
EPL1 (M) = PAEE+HL1^BEPS(H,3) 

EPL2 (H) = FARE+HL2^BEPS (fl,3) 

IF (NLAP. EQ. 2) EPL2(N)=0.0 
IF(EPL1 (fl) .LE.BIGL) SOTO 8940 
BIGI= EPL1(M) 

IBIGL= IE 
TSTAL= M 
ISURFL=1 
BTIHEL= TINE 
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8940 IP (NLAY, EQ.2) SOTO 89 39 

IF(EPL2(M) .LE.BIGL) GOTO 8939 
BIGL= EPL2{fl) 

IBIGL= IR 
ISTAL= M 
ISaRFL=2 
BTIf1SL= TIME 
8939 COMTINOE 

C FOR MEMBRANE SET HINM AND HOBT =0.0 
EPI(M)= FARE- HINN*BEPS{M,3) 

EPO(M) = FABE+HODT*BEPS (M,3) 

IF (EPI (M), LE.BIG (LSS) ) GO TO 591 
BIG(LSS) = EPI(M) 

IBIG(LSS)= IE 
ISTA (LSS) = M 
ISORF(LSS) = 1 
BTIME(LSS) = TIME 

591 IF (EPO (M) .LE.BIG (LSS) ) GOTO 120Q 
BIG (LSS) = EPO(M) 

IBIG{LSS)= IE 
ISTA (LSS) = M 
ISaRP(LSS) = 2 
BTIHE(LSS) = TIME 
1200 CONTINUE 
60 CONTINUE 

C AVERAGE NODAL STRAIN CALCULATION 

C AT A NODE WHERE A BRANCH ATTACHES TO THE MAIN STHOCTORE, 

C THE BRANCH *S NODAL STRAIN IS NOT AVERAGED IN 

DO 6604 1=1,2 
DO 6604 J=1,3 
BEPS{ I,J) = 0.0 
DO 6604 K=1,8 

6604 BEPS(I,J) = BEPS(I,J) +DEP (IR, I, J, K) * DISH(K) 

FAR1 = BSPS (1,1) +BEPS( 1,2) ♦*2/2.0 +BEPS (1 , 1) **2/2 .0 
FAR2 =BEPS (2, 1) +BEPS(2,2) 2/2.0 BEPS (2, 1) * « 2/2. 0 

NKE = MKE(TR) 
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NLAP = NLAY 

IF(HKE,GT. 1) NLAP=1 

IF (NXAP,EQ. 1) GOTO 66 31 

THI1= 0.0 

TH01= 0. 0 

THI2= 0.0 

THO 2=0.0 

DO 6619 1=1,LREF 
DIVI= 1.0 

IF (L.EQ.LREF) DIVI = 2. 0 
TH11= THI1 + H(K1,L)/DIVI 

6619 Tfll2= THI2-f H(K2,L)/0IVI 
DO 6 62 0 L= LPEF, MLAP 
DIVI=1.0 

IF(L.EQ.LREF) DIVI= 2.0 
TH01= TH01+ H{K1,L)/DIVI 

6620 TH02- TH02+ H(K2,L)/DIVI 
GOTO 6622 

6631 THI1= H (K1 ,1)/2.0 
THI2= H(K2,1)/2.0 
TH01= THI1 
TH02= THI2 
6622 CONTINOE 

IF(NKE.EQ.I) GOTO 663 5 
IF (MATT(NKE-I) . SQ.K1) GOTO 6606 
5605 ADEN = 1.0 

IP (ITHE(KI) .GT.O) ADSN=2.0 
ITHR (K1) = 1 

C FOR 3EHBRANE SET THIl ,TH01 ,THI2 ,THO2-0 . 0 

EPSI (K1) = (EPSI (K1) ♦ FAR1- THI 1*BEPS (1,3) /2 . 0) /ADEN 
EPSD(KI) ={EPS0{K1) f FAR1+ TH01*BEPS (1,3)/2. 0) /ADEN 
IF(NKE.EQ. 1) GOTO 6606 
I F(?1ATT<NKE-1) . EQ.K2) GOTO 6607 
6606 ADEN = 1.0 

IF(ITHR (K2) .GT.O) ADEN=2.0 
ITHR (K2) = 1 
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EPSI (K2) ={EPSI(K2) FAS2- THI 2^ BBPS (2, 3) /2. 0) /ADEN 
EPSO (K2) = (EPSO (K2) + ?AB2* TH02 ♦ BEPS (2,3)/2. 0 ) /ADEN 
663 7 CONTINBE 

= fI1 

H (K2,1) = H2 

IF (MI7. .HE.1) GO TO 7 161 
IF (LGSP. EQ- 0) GO TO 7161 

7940 WRITE (MWEITE, 6710) IB, (EPI (L) , SPO (L) ,L= 1, 3) 

6710 FOHf1AT{* * ,13, 2X, 3 (3X , D1 5.R , 3 X ,D1 5 .8,3X) ) 

IF (NLAP. EQ. 1) GOTO 7161 
IF(NTERP.EQ. 0) GOTO 7161 

WRITE (MWRITE,6609) (EPLI (L) , EPL2 (L) , L = 1, 3) 

6609 FOR«AT(» * ,5X, 3 (3X,Dl 5 .8, 3X, D 1 5. 8 , 3X) ) 

7 161 CONTINUE 

C FIND LARGEST AVERAGE NODAL STRAIN 
DO 7170 1= 1,IKK 
N= 0 

DO 7171 IR=1,IK 
IF (NVEC(IR,1).NE.I) GOTO 7172 
IF (?!KE(IR) .EQ.I) N= N +1 
IF (MKE (IR) ,GT. 1) N=N+3 

IP(«KE (IE) .GT.1) NKE=HKE(IR) 

7 17 2 CONTINUE 

IF (NVEC(IR,2) .NE.I) GOTO 717 1 
IF (MKE (IR) .EQ. 1) N=N+1 
IF(HKE (IR) .GT. 1) N= N+ 3 
IF (MKE (IR) ,GT. 1) NKE= HKE(IR) 

7171 CONTINUE 
NK=1 

IF (N.EQ.3.0E.N.EQ.6) NK=NKE 
IF(EPSI (I) .LE.BI (NK) ) GOTO 7174 
.31 (NK) = EPS I (I) 

IBI(NK) = I 
ISUS (NK) =1 
BTIM(NK) = TIME 

7174 IF (EPSO(I) .LE.BI (NK)) GOTO 7170 
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BI(NK) = EPSO(I) 

IBI(NK) = I 
isue (NK) = 2 
BTIM(NK) = TIME 
7170 CONTINUE 
7180 CONTINUE 

IF (LSPP. EQ.O) GOTO 85 62 
IP(KIZ.NE.I) GOTO 8700 
NRITE(HWfiITE, 6705 ) IT 
WHITE {MHSITE, 8707 ) 

8707 POBMATC STRAIN AT ADDITIONAL POINTS *, 10 X, * SI* , 1 8 X, » SO* , 23 X , *EI * 
a 18 X,*EO* ) 

8700 DO 8761 IH= 1 ,IK 

IF (IKK (IE , 1 ) .EQ. 0 ) GOTO 8761 
NLAP= NLAY 

IF (HKE (IE) .GT. 1 ) NLAP -1 
K 1 = NVBC(IE, 1 ) 

K 2 = NVEC(IH, 2 ) 

DO 8019 K= 1,8 
IMDEX= (K 1 - 1 )* 4 +K 
IF(K.GT. 4 ) INDEX- (K 2 - 1 )* 4 *K -4 
DISM(K) = DISP (INDEX) 

3019 CONTINUE 

IF {YK(IE) . EQ.O. 0 ) GOTO 9 02 

CALL ROTAT( 1 ,DUHBY, DISM,IB) 

902 CONTINUE 

H1= H (N1 ,1) 

H 2 = H (K 2 , 1 ) 

L= HKE (IB) 

N=MFE (IB) -1 

IP (YK(IR) .EQ. 1 . 0 .AND.ROT (N ,1 ) .EQ. 1 . 0 ) H(Kl, 1 )= HTH (N) 

IF (YK (IH).EQ. 1 . 0 .AND, EOT(N, 1 ) .EQ. 0 . 0 ) H(K 2 , 1 )= HTH(N) 

NOS LKK(IE, 1 ) 

DO 8763 1 = 1 ,NO 
IS s LKK(IE,I + 1 ) 

DO 8 60 4 . 7 = 1,3 
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AEP5(J) =0.0 
DO 8604 K= 1,8 

8604 AEP5 (J)=AEPS (J) + AEP (IS, J,K) *DISM (K) 

DO 8918 LM= 1,NLAP 

8918 HDIF (LM) = H{.K2^IM)- H(K1,1K) 

HINN=0 .0 

HOOT =0.0 

IF (NLAP. EQ. 1) GOTO 89 41 
IF(LBEF-2) 8735,8736,8737 
3735 H11= (H (K1,1)+HDIF(1) *AXG (M) ) /2.0 
HL2= HL1+ H(K1,2) +HDIF (2)*AXG (M) 

GOTO 8738 

8736 HL1= -(H (K1,2) +HDIF(2) * AXG(H) ) /2.0 
HL2= -HL1 

IP(NLAP.EQ.2) HL2= 0.0 
GOTO 8738 

8737 HL2= - (H (K1 ,3) +HDIF(3) *AXG (K) ) /2.0 
HL1= HL2-(H(K1,2) +HDIF (2) *AXG (M) ) 

8738 C08TIN0E 

DO P919 LM= 1,LREF 
DIVI= 1.0 

IFCLM.SQ.LREF) DIVI=2 .0 

HINN= HINN+ (H(K1,LM)+ HDIF ( L8) ♦ AZ ET (IS) ) / DIVI 

8919 CONTI NOE 

DO 8921 LM= IE EF, NLAP 
DIVI= 1.0 

IF (LH. EQ.LBEF) DIVI=2.0 

HOUT= HOUT+ (H(K1,LK)+ HDIF(LH)* AZET(IS)) / DIVI 
8921 CONTINOE 
GOTO 8 94 2 

8941 HINN= (H (K1,1) +HDIF(1)»AZET (IS))/ 2.0 
HOOT = HINN 
H11= 0.0 
HL2= 0.0 
3942 CONTINOE 

FAEE= AEPS(1) +AEPS (2) ♦♦2/2.0+AEPS (1) ♦♦2/2.0 
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IF (NTERF. EQ. 0) GOTO 8739 
IF(NLAP.EQ,1) GOTO 0739 

C THIS IS A CALCULATION OF THE STRAINS AT THE INTERFACES 
C FOR HEHBRANE SET HL1 AND HL2 =0.0 
EPAS1= F AEE+HL1* AEPS (3) 

FPAS2= FARE+HL2*AEPS(3) 

IF {NLAP.EQ.2) EPAS2= 0.0 

IF (EPASI.LE. BIGAL) GOTO 8740 

BIGAL= EPASI 

IBIGAL= IR 

ISTAAL- IS 

BTIHAL= TIME 

ISOBAL= 1 

8740 IF (NLAY. EQ. 2) GOTO 8739 

IF{EPAS2 .LE. BIGAL) GOTO 8739 

BIGAL= EPAS2 

IBIGAL= IR 

ISTAAL= IS 

BTIMAL= TIME 

I SURAL = 2 

8739 CONTINUE 

C FOR MEMBRANE SET HINN AND HOUT =0.0 
EPASI = FARE- HIHN*AEPS(3) 

EPASO = FARE+ HOUT^ASPS(3) 

C FIND LARGEST ADDTIONAI POINT STRAIN 
IF {EPASI. LE.BIGA (L) ) GO TO 8591 
BIGA(L) = EPASI 
IBIGA (L) = IR 
ISTAA(L) = IS 
BTIMA (L) = TIME 
I SURA (L) = 1 

859 1 IF (EPASO. LE. BIGA (L) ) GO TO 8780 
BIGA (L) = EPASO 

IBIGA (L) = IR 
ISTAA(L) = IS 
BTIHA(L) = TIME 
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ISURA (L) = 2 

8780 IF(MTZ.NE.I) GO TO 8763 

EI= DSQRT (1. 0+2. 0* EPASI) -1.0 
EO= DSQRT( 1 .0+2,0» EPASO) -1.0 
WRITE (HWRITE, 8781) IS , EPASI, EPASO, El , £0 

8781 FORMAT {' » , 1 OX , I3, 16X ,D 15. 8, 4X, D 1 5. 8 , 11X, D 1 5. 8, 4 X, D1 5. 8) 

IF (NLAP, EQ.1) GOTO 87 63 

IF (NTEBF.EQ. 0) GOTO 87 63 
WEITS(riWRIT£,86 09) FPAS1,EPAS2 
8609 FORMAT (• • ,29X, D 15. 8, 4X,D 1 5. 8) 

8763 CONTINUE 

H (K1 ,1 ) = H 1 
H(K2,1) = H2 
8761 CONTINUE 
8562 CONTINUE 

IF(IT-MI) 131,140,150 
140 M1=H1+M2 

CALL PEINT(IT,TIME,aiNN,HOUT,APDEN,SPRIN,BHASS ,C2 ,NQR,CINETO, 
*BEP,ffET, NV ,ES,A3FL,SNS,NV1,NV2,NV3, SOL,Q?EL) 

IF(MBCOND. EQ. 0) GOTO 260 
DO 276 1=1 ,NI 
REAFK(I) =0 .0 
276 CONTINUE 

CALI, OHULT{REACK,DISP,ICOL,NI,P.EAFK,KROW,NDEX,NIRREG) 

DO 261 1=1,21 

261 EEAC(I)=0.0 

DO 2 62 I=1,NBCOND 
J= NODES (I) *4 
K= (1-1) *3 

REAC(K+1) = REAFK (J-3)+FLVA (J-3) 

IF (NBC (I) .EQ.1 .OR.NBC (I) .EQ. 2) REAC (K + 3) =REAFK (J- 1) +FLVA (J- 1) 
IF (NBC (I). EQ.2.0E. NBC (I) .EQ.3) REAC (K+2) = REAFK (J-2) +FLVA (J-2) 

262 CONTINUE 

WRITS (HW RITE, 2 56) 

256 FORKAT (♦ 0* ,6X, • REACT! ONS AT NODE ', 15X, • R V (LBS )', 1 3X, • FW (LBS) ' , 
a) 11X,'RH (IN-LBS) ') 
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DO 252 I=1,NBCONB 
J= (1-1) *3 

WEITE(KWRITE,253) iJODEB (I) ,R£AC (Jfl ) ,REAC (J^2) ,REAC(J + 3) 

25 3 FORMAT (» * , 18X,I 4, 5X, 3D20. 6) 

252 CONTINOS 
260 COKTINUE 
n=NBB+1 

WHITE (MWRITE,66) 

WRITE (MW RITE /67) (L, BIG (L) ,IBIG(L) ,ISURP (L) ,ISTA (L) ,BTIME (L) , 
IF (WTERF .EQ. 0) GOTO 1 272 

WRITE (MW RITE, 59) BIGL, IBIGL, I SURFL , 1ST AL, BTIMEL 
59 FOEHATC INTERFACE* ,4 X, Dl 5 . 6 , 1 X ,14 ,4X ,14 ,4X ,14 , 4X, D1 5 .6) 

127 2 CONTIKDE 

9782 


to 

to 

"O 


IF (LSPP.NE.1) GO TO 
WRITE (MW RITE ,60 30) 

WRITB{MWEITE,6035) 

.^)L=1 ,M) 

IF(NTERF.EQ.O) GOTO 
WRITS (MWRITE,1271) 

FORMAT (• INTERFACE’ 

CONTINUE 
CONTINUE 

HRITE(MWRITE,71B1) 

WRITE (MW RITE ,7 18 2) (1, BI (L) ,IBI (L) ,ISIIR (L) ,BTIM (L) ,L=1 ,M) 
FORMAT(* OSUBSTRUCTURE* ,5X, ’LARGEST NODAL STRAIN *,5X,'NODS 
S’SDRF* ,11X,'TIME •) 

7182 FORHAT'C ' , 4X,I3 , 16 X, D15 ,6 ,7 X ,13 ,6X, 15 ,5X ,D 15. 6) 

WRITE (MW RITE, 11 100) 

11100 FORMAT (' 0’‘**»*******<'***=5=***»***^=<'^***#******^***^*****4:*^*» 

131 IF(IT-MM) 120,170, 150 
170 CONTINUE 

WRITS (MW RITE, 6002) 

6002 FOBMATCOTHE LARGEST COMPUTED STRAINS FOE EACH SUB STRUCTURE- 
2)MAIN AND BRANCHES — ARE PRINTED BELOW, 1= INNER 2= OUTER 


1271 

1273 

3782 


7181 


(C ,BIGA (L) ,IBIGA (L) ,ISTAA (1) ,BIIHA (L) ,ISURA (L) 
1 273 

B I GAL, IB IGA L, 1ST A AL, BTI M AL, I SURAL 
, 14X, D 15. 6, 7X,I3, 6X, 1 5, 5X, D 1 5. 6 , 6X,I4) 


,7X, 


MAIN 00 90 
MAIN01 00 
BAIN01 10 
MAIN0120 
MAIN0130 
MAI N0 140 
MAIN01 50 
MAIN0160 
L=1, M) MAIN0170 
MAIN0180 
HAIN01 90 
MAIN0200 
MAIN0210 
MAIN0220 
MAIN0230 
, MAIN0240 
MAIN0250 
MAIN02 60 
MAIN0270 
HAIN0280 
MAIN0290 
MAIN 03 00 
MAIH0310 
MAIN0320 
MAIN0330 
HAIN0340 
MAIN0350 
MAIN0360 
MAI N03 70 
«*»*4c#hAIN0380 
HAIN0390 
MAIN0400 
MAIN0410 
HAIN04 20 
MAIN0430 
SURF* ) MAIN0440 


3 § 

SK 

tO :g 
f- rn 

5 w. 


to 

to 

CD 


M= NBR+1 MAIN0450 

WRITE (MffEITE, 66) HAIN0460 

WRITE (MW RITE,6 7) (L^BIG (L) ,IBIG (L) ^ISOBF (L) ,ISTA (L) ,BTIHE (L) ,L=1,M) MAIN0470 

66 FORMAT OSUBSTROCTURE* , 8X , • MSTE* ,7X, » ELE*,5X, ' SaEF*,5X,* STA' , MAIN0480 

a9X,'TIME') MAIN0490 

67 FORMAT(» » ,3X , 1 4 , 6X, D 1 5. 6, 1 X, 14 , 4X, 14 , 4X , 14 , 4X ,D 15. 6) MAIN0500 

IF (MTESF.EQ. 0) GOTO 1274 MAIN0510 

WRITE (MW RITE, 59) BIGL, IBIGL, ISURPI, 1ST AL, BTIMEL MAIN0520 

1274 CONTINUE HAIN0530 

IF (LSPP. NE. 1) GOTO 149 MAIN0540 

WP.I?E(MHP.ITE,6030) MAIN0550 

WRITE (Mi RITE, 60 35) (L,BIGA(L) ,IBIGA(L) ,ISTAA(L) ,BTIMA(L) ,ISaRA (L) ,MAIR0560 


31=1, M) 

6 03 0 FORMAT {• OSUBSTRUCTUEB ', 5X, 'LARGEST ADD. FT. STRAIN 5X, * ELE M *, 5X , 
a 'ADD. FT.' ,9 X, 'TIME', 10X SURFACE ') 


6035 FOFMATC 
IF (NTEEF, 


' ,4X,I3 ,16 X, D15 ,6,7X,I3 ,6X,T5 ,5 X ,D 15. 6 , 6X ,1 4) 
EQ.O) GOTO 149 


WRITE(MWEITE,12'»1) 

149 CONTINUE 

WRITE (MW RITE,7181) 
WRITE(MWRITE,7182) 

150 IP(MPU. EQ.O) GOTO 
WRITE( MPUNCH,83) 
H= NBR4-1 

WRITE(MPUNCH,86) 
ai=i ,M) 

WRTTE(MP0NCR,386) 
WRITE (MPUNCH ,387) 
KRITE(MPIJNCH,R9) 
WRITE (MPUNCH, 84) 
WRITE (MPUNCH, 84) 
WRITE (MPUNCH, 84) 
WRITE (MPUNCH, 84) 
WRITS (MPUNCH, 84) 
WRITE ( MPUNCH, 84) 


BIGAL ,IBIGAL,ISTAAL,BTIMAL,ISURAL 


(1,BI(L) , IB 1(1) ,ISDR(1) ,BTIM(1) ,1=1,M) 

16D 

IT, TIME,iaCOU,TAII 

(IBIGA (1) ,TSTAA (L) ,BIGA (L) ,BTIMA (1) ,ISURA(L) 


(I3IG (1) ,ISURF (1) ,I3TA (1) ,BI3 (1) ,BTIilE (1) ,1=1. 

(IBI (1) ,ISUfi (L) ,BI (1) , BTIH (1) ,1=1 ,M) 

HIRP, (TNJ (I) ,1=1 ,NF) 

(DISP (I) ,1=1, NI) 

(DELD (I) ,I=1,NI) 

(DEL DM1 (I) ,1=1, NI) 

(FL7A(T) ,1= 1,NI) 

(QVEL(I) ,1=1, NI) 

( QACL(I) ,T=1,NI) 


WP1TE(MP UNCH,84) ( ( ( (3 NS (IB, J,K,1) ,1=1 ,MNSF1) , K=1,NFL) ,J=1,NOGA) 


MAIN0570 
MAIN0580 
MAIN0590 
MAIN 06 00 
MAIN0610 
HAIN0620 
MAIN0630 
MAIN0640 
MAIN0650 
MA1N0660 
MAIN0670 
HAIN0680 
MAIN0690 
HA IN 07 00 
M) MAIN07 10 
HAIN0720 
MAIN0730 
HAIN0740 
MAIN 07 50 
MAIN0760 
MAIN0770 
MAIH0780 
MAIN0790 
MAIN0800 


to 

to 

VD 


*IR=1 ,IK) 

HEITE(MP0KCH,84) ( { ( (SNP (IE ,J ,K ,L) ,L=1,HNSFt) , K=1 , NFL) , J= 1, HOGX) , 
♦ IR=1 ,IK) 

WBITE(MPUNCH, 84) (FCGO ( J) , FCGW ( J) , ALF A { J) , ODOT ( J) ,WDOT (J) 

ADOT (J) ,J=1,NF) 

WRITE (MW RITE, 6005) 

6005 FORMAT (* OCONTINOATION CARDS HAVE BEEN PONCHED FOR THIS EON*) 

GO TO 161 

160 HRITE(MWEITE,6036) 

6036 FORMAT (*0NO CARDS PUNCHED CORING THIS RON FOR CONTINO ATION. * ) 

161 IF(ICON.EQ.O) GOTO 151 
IRRON = IRRON +1 

GO TO 5555 
151 CALL EXIT 
END 


MAI NOB 10 
MAIN0820 
HAIN08 30 
MAIN0840 
MAIN0850 
MAXN0860 
MAIN0870 
MAIN0880 
MAIH0890 
MAIN0900 
MAIN0910 
MAIN0920 
HAIN0930 
MAIN0940 
MAIN09 50 


SUBROUTINE IMPACT (EFLN,I 'I, N3R, QACL, QVRL, BMASS, AM ASS, FLN ) 

IMPLICIT RSAL.v8(A-U,0-Z) 

DIMENSION DISM (205) , DISUM (205) ,?LVM (205) ,BMASS (1) , AMASS (1) ,FLN (1 ) 
DIMENSION PD (50, 6) , PALE (50,-6) 

DIMENSION 0ACL(205) , QVEL(205) 

DIMENSION AY (51) ,AZ (51 ) 

DIMENSION TU(205), TW(205) 

DIMENSION VY (51) ,VZ (51 ) , TFCGU (6) ,TFCGW (6) ,TAL?A(6) ,IFLAG (51, 6) , 
2NTSD (6) , NSE (6) , RL (50) , EFLN (6) 

DIMENSION AYCD(51), AZCD(51) 

COMMON /HIT/ TNJ (6) , MIRP 
COMMON /ACC/ OCD(205) 

COMMON/IMFT/ VEL (102) ,I.MCO,JVEL (51) 

COMMON/T APE/M BEAD, M WRITE, MPUNCH 
COMHON/FC/ Y (51) , Z (51 ) , ANG (5 1 ) , H (5 1 , 3) 

COMMON /VQ/ FLVA (205) ,DISP (205) , DSLD (205) , BINP (50, 3) ,BIKP (50,3) 
COMMON /FRAGV/ V ELF U (3 ) , VELF W (3 ) , VELF A (3 ) 

COMMON/FRAG/ FH (3) ,FMASS (3) , FMOI (3) ,UNK (3) , CR (3) ,FCGO (3) ,FCGW (3) , 
S)ALFA (3) , DFCGII (3) ,DFCGW (3) ,DALFA (3) ,TRBL, FKT (3) ,D£LTAT, NF, HIHP 
COMMON/FG/ IK,IKK,ICP,LREF,NOG A,NFL,NI,ICOL (2 05) ,TNUM (205) 

•d), NBCOND, NBC (7) , NODEB (7) , KROK (8) , NDEX (8) , NIREEG 
CCMMON/BB/ NVEC(51,2), LMT(51) 

COMMON/LEFT/RMASS (51) 


IMPA0010 
IMPA0020 
IMPA0030 
IMPA0Q40 
IHPA0050 
IflPAOOeO 
IMPAOOTO 
IHPA0080 
IMPA0090 
IMPA0100 
IMPA01 10 
IHPA0120 
IMPA01 30 
IHPA0140 
IMPA0150 
IMPA0160 
IMPA0170 
IMPA0180 
IMPA01 90 
IMPA0200 
ISPA0210 
IHPA0220 
IMPA0230 
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o n ri 


COKMQN/IIAT/ TAIl, IMCOU 
COS (ZZZ) =DCOS (ZZZ) 

SIN (ZZZ) =DSIN (ZZZ) 

c 

C 510DIFIED IMPACT CONTROLLING ROUTINE ^7***i^**** 

CUERENl TIME REMAINING IN THIS TIME STSP=EXTERN AL TIME STEP 
AND CURRENT TIME = TB, 

TIMEI= (lT-1) *DELTAT 

TIMBF = IT*D£LTAT 

DELTP=DBLTAT 

TB=TIMEI 

JF=1 


C 

C 

C 


c 

C 

c 

c 

c 


IMPA 0240 
IflPA0250 
IMPA 0260 
IMPA0270 
IMPA0280 
IMPA0290 
IMPA0300 
IMPA0310 
IHPA0320 
IMPA 03 30 
IMPA0340 
IMPA 03 50 
IMPA0360 
IMPA0370 


CO 

8100 
8 110 

812C 

FORMAT (' 
FORMAT (' 
FORMAT (• 

VZ=* , 10D12.4) 
TW=',10D12.4) 
TFCGW=» ,D15 .6, ' 

VELFW=',D15.6) 

IM PA 03 80 
IMPA0390 
IMPA0400 

Co 

o 

8130 

FOEMATC 

DISM=* , 10D12. 4) 


IMPA0410 


8140 

FORMAT (' 

FLVM86 = * ,D15.6, • 

FLVM90=* ,D15. 6) 

IMPA0420 


INITIALIZE CORRECTION 'FLAGS' TO HO- PREV, - CORR. POSITION (=0), 

AND NO. OF SUBDIVISIONS FOR EACPI FRAG. TO ZERO 
DO 5 1=1, IK 
DO 5 J=1,NF 
NT3D (J) =0 
IFLAG (I ,J) =0 

TRANSFORM NODAL VELOCITIES INTO Y AND Z COMPONENTS 

CALC. TRIAL POSITION OF RING NODES AND FRAGMENT TO THE END OP THIS 
INTERNAL TIME STEP 


C 

C 

C 


DO 7000 1=1, NI 

700C DI3H(I)= DISP(I) + DELD(I) 
TRIAL POSIIICN OF FRAGMENT 


IMPA0430 
IMPA 0440 
IMPA0450 
IMPA0460 
IMPAC470 
IMPA0480 
IMPA0490 
IMPA0500 
IMPA0510 
IMPA0520 
IMPA 05 30 
IMPA0540 
IMPA0550 
IHPA0560 
IMPA0570 
IMPA0580 
IMPA0590 



NJ 

00 

M 


C RtlTURK POSIilON FOB SUBSZO.UENT INSPECTION AFTER INITIAL PFNFTeATlON 
C CCRRECTION. 

NRQ=0 

20 CONTINUE 
C 

DO 7035 1=1, NF 

TFCG!J(I) = FCGU(X) +VELFU ( I) « DELTR’!‘T NJ (I) 

TFCGW (I) = FCGW (I) +VFLFW (I) ♦DELTR^TNJ (I) 

7C35 TALFA(I)= ALFA (I) + VELFA (1) *DELTP’*=TNJ (I) 

6 DO 10 1=1, IKK 

VY (I) = QVEL (I=i'4-3) ’^‘COS (ANG (I) ) -QVSL (I’p4-2) »SIN (ANG (I) ) 

10 VZ(I)= QVEL (1*4-3) =?SIN (ANG (1) ) +QVEL (I*4-2)*C03 (ANG (I) ) 

DO 7025 1=1, IKK 

TU (I) =Y (I) +DISM (1*4-3) *COS (ANG (1) ) -DISK (1*4-2) *SIN (ANG (I) ) 

TW (1) =Z (I) +DISK (1*4-3) *S1N (ANG (I) ) +DISH (1*4-2) *COS (ANG (1) ) 

7025 CONTINUE 

IF (NTSD (JF) .GT.5 ) GOTO 150 

IF(NEQ.EQ.O) GOTO 720G 

NEQ=NFQ- 1 

PD (I BIG, JF) = -1.0 

DO 7210 IR=1,IK 

DO 7210 J=1,NF 

IF (PD (IR,J) -Pt5AX) 7210,7220,7220 
721C CONTINUF 
GOTO 7200 

722 0 PAL= PALE (IR ,J) /EL (I F) 
iBiG=ir< 

JF=J 

GOTO 7290 
7200 CONTINUE 


C CALC. PENETRATION DISTANCES FOR THIS TRIAL POSITION. 

CALL PENTRN (TU, TN,TPCGD, TFCG W ,N PP, PH A X , N F;F , NEQ, JF , P AL , RL , IB IG, 
2H,FH,IK, NF,ICP, PE,PALE) 

C 

C CHECK PENETRATIONS. 


IHPA06 00 
IJ1PA06 10 
IMPA0620 
IN PA 06 30 
INPA0640 
IMPA0650 
IttPA0660 
IMPA0670 
IKPA0680 
IMPA0690 
IHPA0700 
IMPA0710 
IMPA0720 
IHPA0730 
IHPAC740 
IMPA0750 
IHPA0760 
IMPA0770 
IMPA0780 
Ii1PA0790 
IHPA0800 
IMPA08 10 
IMPA0820 
IMPA0830 
IMPA0840 
IS FA 08 50 
IMPA0860 
IMPA0870 
INPA0880 
IMPA0890 
IMPA0900 
IHPA0910 
IMPA0920 
IMPA0930 
IBPA0940 
IMPA0950 
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tvj 

(jj 

NJ 


C 

c 

c 

c 


c 

c 

c 


IF TiiF NriKSFR OF POSITIVE PENETRATIONS, NPP, IS ZERO, AND THE 
WAX, PENETRATION IS LESS THAN ZERO, NO (^OKE) PENETRATIONS OCCHR FOR 
THIS TIME STEP, 

IF(NPP.EQ.O.AND.PMAX.LT. 0.0)GO TO 150 

IF MAX. PENETRATION IS ZERO, SKIP SUBDIVISION PROCESS. 

7290 CONTINUE 
TT=TB 

, TMlK = DELTe 

RETURN FRAGMENT AND NODAL POSITIONS TO BEGINNING OF THIS INTERNAL 
TIME STEP. 

DO 35 1=1, NF 
TFCGU (I) =FCGU (I) 

TFCGN (I) =FCGW (I) 

35 TALF A (I) =ALFA (I) 

DO 25 1=1, IKK 

TU (I)=Y (I) +D1SP (1*4-3) *CCS (ANG (I) ) -DI3P (1*4-2) ♦SIN (ANG (I) ) 

TW (I) =Z (I) +DISP (1*4-3) *SIN (ANG (I) ) f DISP (1*4-2) *COS (ANG (I) ) 

25 CONTINUE 


C 

C 

C 


C 

C 


CALC. TIME OF CONTACT, ELEM. AFFECTED, AND POINT OF CONTACT. 

UPDATE NODAL AND FRAG. POSITIONS TO THIS TIME 
100 CONTINUE 

NTSD (JF) =NTSD (JF) +1 
IMCCU = IMCOU+1 

UPDATE NODAL VFLOCITIES (VY,VZ), AND FRAGMENT VELOCITIES (VELFO, 
VELEW, VT^LFA) TO POST-IMPACT VALUES. 

WRITE (MS PI TF,80 0 0) IMCOU ,TT ,IT ,I BIG , J? ,P AL 
8000 FORMAT (’ OIMPACT NO. • ,I 5, 5X, • TIME • , D1 5. 6, 5X, ' DURING CYCLE* ,15, 5X, 
jVELEM* ,15, 5X, 'FRAG* ,I5,5X, * DISTANCE* ,D15.6) 

TIME REMAINING IN THIS EXTERNAL TIME STEP 
IF (IMCOU.EQ, 1) .TAII = TT 


IM PA 09 60 

IMPA0970 

IMPA0980 

IMPA0990 

IMPA1000 

IMPA 10 10 

IMPA1020 

IHPA1C30 

IMPA 1040 

IMPA1050 

IMPA 1060 

IMPA 10 70 

IMPA1080 

IMPA1090 

IMPA1100 

IMPA11 10 

IMPA1120 

IMPA 11 30 

IHPA11 40 

IMPA1150 

IHPA1160 

IMPA 11 70 

IMPA1180 

IMPA 11 90 

IMPA1200 

IMPA1210 

IMPA1220 

IMPA1230 

IMPA1240 

IMPA1250 

IMPA 1260 

IMPA1270 

IMPA 1280 

IMPA1290 

IHPA1300 

IMPA1310 


CALI, IMfCIE (TU,TW,VY, V7 ,,VlLFII,VEL?W,VL:LFA,J?,IBIG,SHAS3, 
2FMAS3, FMCI,CF,UNK,PAL,EFLN,H,FH, IK , N F , ICP, RL, N BR ,N BCOND, N0DE3 
3, DELTR^AY, AZ,ANG,AYCL, AZCD) 

IMCO = 1 
DO 7C50 i=1,IKK 

QVEl {I’'-'4-3) = VY (I) X'COS (ANG (I) ) <-VZ (I) ■*=S1N (ANG (I) ) 

QVEL (I»4-2) = -Vy (I) >s^SIN (ANG (I) ) (I) *COS (ANG (I) ) 

7050 CONTINUE 

DO 7340 1=1, NI 
FLVM(I)= 0,0 

7340 DISIIM(I)= 2. 0^ (DISP (1) +DELTAT^QVEL (I) ) 

CALL OFiULT (D WAS S, DI SU« , I COL , NI ,FLVM, KROW , NDFX , NI R REG ) 

DTSQ= D21TAT*«2 
DO 7341 1=1, NI 

7341 FLVM(I)= - (2.0*FLVA (I) -FLN(I)) ▼DTSQ + FLVW(I) 

IF (N0COND. EQ. G) GOTO 7124 

DO 7125 I=1,NBCOND 
JT4 = NCEEB(I)*4 
FLVM (JT4-3) = 0.0 

IF (NBC(I).EQ.I.OR.NBC(I) .EQ. 2) FL V W ( JT4- 1) =C , 0 
IF (NBC (I) ,EQ. 2. OR. NBC(I),SQ.3) FLVW (JT4-2) = 0.0 
7125 CONTINDE 
7124 COMTINIIE 

CALL SOLV (AMASS,FLVW,D1S«,IC0L,KP0W,NDEX,NI, NIPS EG) 

C 

C CHECK FOE ADDITION A1 IMPACTS IN THIS EXTERNAL TIME STEP. 

GO TO 20 

O 

C NC ADDITIONAL IMPACTS OCCUR IN THIS TIMS STFP. 

150 CONTINUE 
C 

C RETURN TO CONTROLLING ROUTINE WITH FINAL DISPLACEMENT INCREMENTS. 
C FRAGMENT LOCATION. 

DO 160 1=1, NF 

DFCGU(I)= TFCGU (I) -FCGU (I) 

DFCGW (I) = TFCGW(I)- FCGM(I) 


IMPA1320 
IHPA1330 
IMPA1340 
IMPA1350 
IMPA1360 
IMPA1370 
la PA 13 50 
IMPA1390 
IMPA1400 
IMPA14 10 
IMPA 1420 
IMPA1430 
IMPA1440 
IMPA1450 
IMPA1460 
IMPA 1470 
IMPA1480 
IMPA1490 
IMPA1500 
IMPA 1510 
IHPA1520 
IMPA1530 
IMPA1540 
IMPA1550 
IMPA 1560 
IMPA1570 
IMPA1580 
IMPA1590 
IMPA 1600 
IMPA1610 
IMPA 1620 
IMPA1630 
IMPA1640 
IMPA1650 
IMPA1660 
IMPA 1670 


160 DALrA(I)= TALFA(I) - ALFA(I) 

C 

C IF NO IMPACTS HAVE OCCIIRFD, NO FURTHEB UPDATE IS REQUIRED. 
NSUH=0 

DO 165 1=1, NF 
165 NSUM=NSUH+NTSD (I) 

IF (N SUM. EQ.O) RETURN 
C 

C IF IMPACT HAS OCCURED, UPDATE VELOCITIES 
DO 170 1=1, NI 

170 DELD{I)= DISM (I) -DISP (I) 

RETURN 

END 


IMPA1680 
IHPA1690 
IMPA1700 
IMPA171Q 
IHPA1720 
IMPA1730 
IMPA1740 
IMPA1750 
IMPA176C 
IMPA1770 
IHPA1780 
IMPA1790 
IMPA 1800 


lo 

OJ 


SUBROUTINE IKPCTE (TU,TW, VO , V W , V FLFU, VEL FW , VELF A, J BIG , IBiG, R« AS S, 
2FMASS,FMOr,CE,UNK,PAL,E?LN, H,FH,IK,NP,ICP,RL,RBR,NBCOND,NODEB 
3,DFLTR,AY, AZ, ANG,AYCD, AZCD) 

IMPLICIT REALMS (A-H,C-Z) 

DIMENSION NODFB(I), K(51,3) 

DIMENSION AY (1) ,AZ {1} , ANG (1) 

DIMENSION AYCD(51), AZCD (51) 

DIMENSION TU (1) , TW ( 1) , V U ( 1) , VW ( 1 ) , VSLFTT{ 1) , VELFW (1) , VELF A (1) , 
2FMASS(1) ,RMASS(1) ,FMOI ( 1 ) , CR ( 1 ) , ON K { 1 ) ,EFLN ( 1 ) , RL { 1) , FH ( 1 ) 
DIMENSION SSL (25) ,GAM (25) ,BET (25) ,SSR (25) 

DIMENSION MNO(51) , MNOD(51), LT(11),PK(11) 

DIMENSION M5C(8) , EF (6) 

COMMON /BOUN/ YK(51) , NBCONB, NBCB (7) ,N0DBB(7) ,MK(51) ,ROT(5,2) 
d),XDIST (6) ,DROT (50) ,NODP (6) 

COMMON/IMPT/ VEL (102) ,IMCO, JVEL (51 ) 

COMMC=N /TAPE/ M PE A D , M W RITE , MP ONCH 
COMMON/BB/ NVEC(51,2), LMT(51) 

COMMON /TAM/ MK3(51) 

COMMON /ML/ MN£L (6) ,MATT (6) 

SIN (0) = DSTN (Q) 

COS (Q) = DCOS (Q) 

MFF=1 
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NS = IK 

IF (ICP.GI. 0) NS = IK+1 
IF (NBCOND. ?,0.0) NODIB(I) = 0 
DC 10G0 .1=1, IK 
L1= NVSC (1,1) 

L2= NVEC(I,2) 

C ESTABLISH FLHHENT LENGTH, ANGLES AND DISTANCES TO NODES 
RL (I) = CSQRT C(TM (L2) -T» CI'1) {TH (L2) -TU (LI) ) **2) 

100 0 CONTINUE- 

J,NB?i = NBR-H 
DO 100 I=1,JNFR 
IOC SF (I) = EFLN (1) 

LI = NVHC(IBIG,1) 

L2 = NVEC(IPIG,2) 

RSIN= (TW(L2)“TM(L1))/RL (IflIG) 

RCOS= (TU {L2)-TU (LI) ) / aL(IBIG) 

IBI= NVFC(IBIG, 1) 

C PAL = DISTANCF TO NODE1 PAX = DISTANCE TO NODF2 
IF (PAL.EQ.O.C.OR.PAL.FQ. 1 .0) GOTO 937 
GOTO 934 
937 LZ=L1 

IF (PAL.EQ. 1. 0) LZ=L2 
DO 1007 i=1,NBCOND 
IF(LZ. FO.NODFB(I) ) GOTO 1006 
1007 CCMTINUE 
GOTO 934 
1006 CONTINUE 
KII=1 

BET(1) = 0.0 

HNOD(1) = NVEC(IBIG,1) 

IF(PAL .EO.1,0) «NOB(1) = NVEC(IDIG,2) 

GOTO 936 
934 CONTINUE 

FAI- PAL »RL(J.RIG) 

PAX= EL(IBIG)-PAL 
55.S9 CONTINUP; 
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^BC(I) =0 


IMPT0590 


ZK=1.0 


IHPT06 00 


fHi:iL=a 


JMPT06 10 


?1IHR = 0 


IMPT06 20 


DO 998 1= 2,v7NBR 


IMPT0630 

y9 8 

EFLN (I) = FF (I) 


IMPT0640 


aWFL = 0 


IMPT0650 


KIL=1 


IMPT0660 


ESTAULI3F; THE NUMBER CF NODES 

COUNTERCLOCKWISE PROM 

IMPACT W1T-HINIKPT0670 


SSL (KIL) =PAL 


IHPT0680 


«EF=aKF (IBIG) 


IMPT0690 


IF(MEF.FQ. 1) GO TO 1010 


IMPT0700 


wFITE (MWRITE, 1 009) 


IMPT07 10 

100 9 

FORMAT (' IMPACT ON A BRANCH IS 

NOT PRESENTLY ALLOWED- 

- NO IMPACT') IMPT0720 


GO TO 350 


IHPT0730 

1 0 1 c 

CONTINUE 


IMPT0740 


IF(PAL.G£. EFLN (MSF) ) GO TO 300 


IKPT0750 


MNO(KIL) = NVEC(IBIG, 1) 


IMPT0760 


IFF = C 


IMPT0770 


IF2=C 


IMPT0780 


IF3 =0 


IMPT0790 


MIML=1 


TMPT0800 


DO 301 J=1,2S 


IHPT0810 


GAK (KIL) = ZK-SSL (KIL-IF3) /EPLN (ME?) 

IMPT0820 


I? {MMFL. NR. 1) GO TO 931 


IMPT0830 


EFLM(MEF) = C . 9 9* SSL (KIL -IF 3 ) 


IMPT0840 


GO TO 5555 


IMPT0850 

93 1 

CO 940 NC=1,NBCOND 


IMPT0860 


IF (UNO (KIL) . NF. NODEB (NC) ) GOTO 

940 

IHPT0870 


MBC (1) = MBC (1) +1 


IMPT0880 


MBC (MBC( 1) +1) = NODEB (NC) 


IMPT0890 


MMPL=1 


IMPT0900 


IF (HMO (KIL) . NE. 1 . AND.MKE (JSL-1 ) 

.EQ.1) GOTO 932 

IMPT09 10 


E’FLN(MEF). = SSL(KIL-IF3) 


IMPT0920 


GOTO 5555 


IKPT0930 

93 ?. 

CONTINUE 


IHPT0940 



GOTO 950 
94C CONTINUE 
950 CONTINUE 

JEL = IBIG - KIL -lEF 
XF2 =0 

IF (ICP. LB. 0. AND.JFL.LE.O) GO TO 302 
I? (ICP.GT. 0. AND. JFL.LE. Q) JEL=JEL+IK 
C CHECK FOE A BRANCH ATTACHMENT POINT 
IF(NBR.EQ.O) GO TO 1C38 
DO 1020 I = 1,NBR 

IF (MNO (KIL) . NE.MATT (I) ) GO TO 1020 

NB •= 1 + 1 

HTI = MATT (I) 

EST = GAM (KIL) 

GO TO 1030 
1020 CONTINUE 
^ GO TO 1038 

w C COMPUTE BRANCH NODES INVOLVED IN MOMENTUM TRANSFER, 
1C3C RX ■= 0.0 

IF(MM?L. EQ. 1) GOTO 1033 
NUMB = 0 
MBFL=0 
KL = C 

DO 1035 1= 1,10 
IF (MBFL. NS. 1) GO TO 910 
NUMB = NUMB+1 
IF (NUMB. NE. 2) GOTO 910 
EFLN (NB) = G,99*^ RX/ISI 
GOTO 1030 
910 CONTINUE 

IP (NODP (NB-1) . NE. 1) GOTO 2050 
IF ( (MTi- 1) .EQ.O) GOTO 1037 
RX- RX+RL(MTI-I) 

P = E3T-RX/RFLN (NB) 

IF (P.LE.j.U) GO TO 1037 
LT(KL+1) = MTI-I 
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IKPT1060 

IHPT1070 

IHPT1080 

IMPT1090 

IMPT11 00 

IHPT11 10 

IMPT1120 

IMPT11 30 

IMPT114n 

IMPT1150 

IMPT1 160 

IMPT1170 

IHPTUBO 

IMPT1190 

IHPT1200 
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IMPT1220 
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IMPT1240 

IMPT1250 

IHPT1260 

IHPT1270 
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IMPT1290 

IMPT 13 00 
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GOTO 206C 
2050 CONTINns 

IF (flKE (hTI+I-l) .N£,KB) GO TO 1037 
RX- RX+PL (flTI + I- 1) 

P = EST-RX/EFLK (NB) 

IF (P. LE. 0.0) GO TO 1037 
LT(Klfl) = .'ITI+I 
2060 CONTINOE 

PK(KL+1) - P 

DO 900 NO= 1,tiBCOND 

IF (LI (KL+ 1) . KF. NCD55 (MC) ) GOTO 900 

KBC (1) = MQC (1) f 1 

MBC (SBC ( 1) 1) = NODF.B(NC) 

WBFL=1 
GOTO 920 
900 CONTINUE 
92C CONTINMJE 
uj KL ~ K L+ 1 

“ 1035 CONTINUF 

1037 L = KIL+ 1 

IF3 = IF3 +KL 
IFF=MNiL (NB-1) ~KL +IFF 
IF2 •= MNEL(NB-I) 

IF ( KL. EQ. 0} GO TO 1038 

KIL ^ KIL +KL 

DO 1036 I = I, KIL 

LZ= KL -I+L 

GAM (I) = PK(LZ) 

10 36 MNG (I) = LT(LZ) 

103S CONTINUF 

JEL = JEL -IF2 

IF (JFL. FQ.C) GO TO 302 

SSL (KIL+ 1-IF3) = SSL(KIL-IF3) + PI (JEL) 

IF (FFLN (ML?) .LE.SSL (KIL+ 1-IF3) ) GOTO 302 

KIL = KIL +1 

M NO (KIL) •= NVFC(JEL,1) 
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IMPT1400 

IMPT14 10 

IHPT1420 

IHPT1430 

IMPT1440 

H1PT1450 

IHPT1460 

If1PT1470 

IMPT1480 

IWPT1490 

IHPT1500 

II1PT1510 

IWPT1520 

inPT1530 

IHPT1540 

IMPT1550 

IMPT1560 

IMPT1570 

Ii1PT1580 

IMPT1590 

INPT1600 

IflPTl610 

IMPT1620 

I-MPT16 30 

inPTl640 

IMPT1650 

IMPT1660 
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301 CONTINO'f; 

302 DO 303 JJ= 1,KIL 
«NOD(JJ) = «NO(KIL-JJ + 1) 

303 BET(JJ) = GAM (KIL-J.1 + 1) 

30C CONTINUE 

IF2=G 
IF3 =0 
IF? = 0 
KMFL - 0 
KIR=1 

C ESTABLISH THE NUMBER OF NODES CLOCKWISE FROM 

■ SSR (KIR) =PAK 

IP(PAX .GE.EFLN («FP) ) GO TO 304 

MNOD (KIR + KIL) = NVEC(IBIG,2) 

MIMR=1 

DO 305 J = 1,25 

BET (KIL+KIR) = ZK-SSR (KI R-IP3) /EFLN (MEF) 

IF (MMFL. NE. 1) GO t 6 941 
EFLN(ilEF) = 0.99>»'SSR (KIR-IF3) 

GO TO 5555 

941 DO 945 NC= 1,NBCOND 

iP(MNOD(KIL+KIR) .NE,NOCER(NC)) GO TO 945 

MBC (1) = MBC (1) +1 

KBC (HBC( 1) +1) = NODEB(NC) 

MMFL=1 

IF (MNOD(KIL+KIR) . NS. NS. AND. M KE (JEL ♦ 1 ) . HO . 1 ) GOTO 933 
EFLN(MSF) = SSR(KIR-IF3) 

GOTO 5555 
933 CONTINUE 
GOTO 955 
945 CONTINUE 
955 CONTINUE 

JSR= IDIG+KIR+IFF 
IF2^0 

IF (ICP. LF. 0. AND.JER.GT. IK) GO TO 306 
IF (ICP.GT. 0. ANDo JFR.GT.IK) JER=JHR-1K 
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IMPT1710 
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C CEIF.CK FOR A BRANCH ATTACHNFNT POINT 
IF(NBE.EQ.O) GO TO 1C8C 
DO 1C5C I = 1,NBR 

IF (MNOD (KTL + KIR) .HE,KATT(I)) GO TO 105C 

NR= I+l 

MTI = MATT (I) 

FST = BET (KIL+Kl K) 

GO TO T060 
1050 CONTINf'S 

GO TO 1080 

C COMPUTE BRANCH NODES INVOLVED IN MOMENTUM TRANSFER, 
106C BX =0 

MBFL=0 ■ 

NUMB = 0 
KL =0 

DO 1055 1 = 1,10 
IF (HKFL. LQ. 1) GOTO 1080 
^ IF (MBFL. NE. 1) GO TO 915 

° NUMB = NUMB+1 

IF (NUMB. NE. 2) GOTO 915 
EFLN (NB) = C.99* RX/ESI 
GOTO 106G 
915 CONTINUE 

IF (KKF(KTH-I-I) . NE.NB) GO TO 1057 
RX=R.X + RL (MTI + 1- 1) 

P=LSi-RX/EFLN (NB) 

IF(P.LE.C.O) GO TO 1057 

LT(KL+1) = MTI + I 

PK(KL+1) = P 

DO 905 NC= 1,N3C0ND 

IF (LT (KL+ 1) . NE. NCDEB (NC) ) GOTO 905 

MBC (1) = MBC (1) +1 

HBC{MBC(1) +1) = NODEB(NC) 

MBFL=1 
GOTO 925 
905 CONTINUE 
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925 

CONTINUE 

I MPT 23 90 


KL= KL +1 

IMPT2400 

1055 

CONTINUE 

IMPT2410 

1057 

L=KIR+1 

IMPT2420 


M ^ KIR 

IMPT2430 


IF3 = IF3 +KL 

IHPT2440 


IF2 = ?INEL(NB-1) 

IMPT2450 


IFF=«NLL (NB-1) -KL +IFF 

IMPT2460 


IF (KL.EQ.O) GO TO 1080 

IMPT2470 


KIR = KIR 4-KL 

IMPT2480 


DO 1C56 I = L,Kie 

IMPT2490 


BET(KIL + I) = PK(I-M) 

IHPT2500 

1C5G 

«NOD(KIL + I) = LT(I-P!) 

IMPT25 10 

1080 

CONTINUE 

IMPT2520 


JER= JER-»IF2 

IMPT2530 


IF (JER.GT.IK) GO TO 30 6 

IMPT2540 

to 

SSR (KIR<- 1-IF3) = SSP(K1P-IF3) +RL(JEH) 

IMPT2550 

H 

IF (SFLN (KEF) .LE. SSB (KIR+ 1-IF3) ) GOTO 306 

IHPT2560 


KIR = KIE +1 

IMPT2570 


KNOD (KIL + KIR) = NVEC(JEE*2) 

IMPT2580 

3 05 

CONTINUE 

IHPT2590 

306 

CONTINUE 

IMPT2600 


IF (KIL-LE. 1 .AND.KIR.LE.I) GOTO 308 

IMPT2610 


IF (KIML. NS. C) GOTO 307 

IMPT2620 


BET(1)=PAX »BET (2) /PAL 

IMPT2630 


MNOD(1) = NVEC(1BIG,1) 

IMPT2640 


DO 971 J=1,NBCOND 

IHPT2650 


IF (KNOB(1) .NE.NODEB (J) ) GOTO 971 

IMPT2660 


MBC (1) = KBC (1) +1 

IMPT2670 


KBC (MBC (1) +1) = NODEB(d) 

IMPT2680 

97 1 

CONTINUE 

IMPT2690 


GO 10 3C7 

IMPT2700 

304 

IF (KIKL.SO. C) GO TO 308 

IMPT2710 


IF (KIL. LE. 1 . AND. KIR. LE. 1) GOTO 308 

IMPT2720 


BET (KIL + 1) =PAL*BET (KIL) /PAX 

IHPT2730 


MN0D(K1L+1) = NVEC(IBIG,2) 

IHPT2740 
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no 9 72 J = 1,NiiCOND 

inPT2750 

IF (fllOD (KIL+ 1) , NE. KODSB (J) ) GOTO 972 

IHPT2760 

MBC(T) = f1BC(1) +1 

IHPT2770 

KBC (fliBC (1) +1) = NODEB(J) 

IHPT2780 

972 CONTINUE 

IflPT2790 

GO TO 307 

IHPT28 0f) 

3 03 B9T(;i)=PAX 

IHPT2810 

BET (2) =PAL 

IMPT2a20 

NNODH) = NVEC{IBIG,1) 

If1PT2830 

MNODC2) = NVFC(IBIG,2) 

IHPT2840 

DO 973 J= 1,NBCOND 

IMPT2850 

IF (fINOD (1) . NF.N0DE3 (J) ) GOTO 974 

IHPT2860 

MBC(1) = !1BC(1) <-1 

IMPT2870 

MBC (MBC (1) +1) = NODEB(J) 

IMPT2880 

974 IF(:iNOD(2) . NE. NOD PB ( J) ) GOTO 973 

IHPT2890 

MBC(1) = MBC(I) -M 

IHPT2900 

MBC (MBC ( 1) +1) = NO DEB (J) 

IMPT29 10 

973 CONTINUE 

IHPT2920 

307 KII=KIL+KIR 

IHPT29 30 

SUM=0. 

II1PT2940 

DO 31i; J=1,KII 

IBPT2950 

3T1 SfIM = Sl!M+BET (J) 

IMPT2960 

C BET = WEIGHTING FACTCE FOR THF EFFECTED NODES 

IWPT2970 

DO 312 J=1,KII 

THPT2980 

BET(j;| = BET (J) /SUM 

IBPT2990 

IF {M3C (1) . EQ.O) GO 10 312 

IMPT3000 

L= MBC(1) + 1 

I«PT3010 

DO 989 !■= 2,1 

IMPT3020 

IF (HNOD(J) .EQ. MBC(I) ) BET(J) =0.0 

IHPT3030 

989 CONTINUE 

IMPT3040 

312 CONTINUE 

IMPT3050 

936 CONTINUE 

IMPT3060 

DO 1011 T = 1,JNB3 

IHPT3070 

1Q1 EFLN (I) = EF(I) 

IHPT3080 

SUBB=0. 

IBPT3090 

DO 313 J=1,KII 

IBPT31 00 
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AND FRAGMENT 


IS REL. N 


JEE= MNOD(J) 

IF( ICP.GT,O.AND. JEE.GT. IK) JEE=JEE-IK 
SUMB=SUMB+BET(J )=«=*2/RMASS( JEE ) 

313 CONTINUE 

B l=l./FMASS(JBIG) + ( EH ( JBIG) /2. )=«=*2/FMOl (JBIG) +SUMB 
B2=1./FMASS( JBIG)+SUMB 
SUMN=0. 

SUMT=0, 

DO 340 J=ltKH 
JEE= MNOD(J) 

IFl ICP.GT.O. AND. JEE.GT. IK) JEE=JEE-IK 
C ESTABLISH THE TANGENTIAL AND NORMAL VELOCITIES OF RING 
SUMN=SUMN +BET(J )*(VW( JEE)*RCOS“VU( JEE )*RSIN) 

340 SUMT = SUMT + BET( J ) * ( VW { JEE )«RS IN+VU ( J EE ) <=RCOS ) 

VFN= VELFWI JBIG)*RCOS - VELFU( JBIG ) ♦RS IN 
VFT= VELFW(JBIG) - RSIN + VELFU ( JB IG ) ♦RCOS 
C SINT= RELATIVE TANGENTIAL VEL BETWEEN RING AND FRAG., AINT 
SINT= VFT-VELFA( JBIG)*FH( JBIG) /2.0 -SUMt 
AINT=VFN-SUMN 

C IF AINT LE 0 THE FRAG IS NOT APPROACHING THE RING SO SKIP OUT OF THE 
IF( AINT. GT .0.0) GOTO 3005 
WRITE(MWRITE,3006) AINT 

3006 FORMAT( •0A1NT=',D15.6, • NO IMPACT — LEAVING IMPCTE*) 

GOTO 350 
3005 CONTINUE 

IF(UNK( JBIG) .EQ. 0.0 )G0 TO 702 

C CALCULATE THE EFFECT OF FRICTION ON THE RELATIVE VELOCITIES AND 
TANX=SINT*82/( AINT^Bl ) 

705 IF(UNK(JBIG).LE.TAMX)GO TO 706 
APN=(1.0+CR( JRIG))*AINT/B2 
APT=SINT/B1 
GO TO 760 

706 APN=( l.+CR( JBIG) )*AINT/82 

APT=UNK( JB IG) -APN 
GO TO 760 

702 APN=(1 .0+CR( JBIG) )=«=AINT/B2 


THE 
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APT=0.0 

760 CONTINUE 

FACTFN=-l.O*APN/FMASS( JBIG) 

FACTFT=-1.0*APT/FMASS{ JBIG! 

FACTFO=APT«FH( JB IG ) /FMO H JB IG ) /2 . 0 
C UPDATE THE RING AND FRAGMENT VELOCITIES 

VELFUU8IG) = t-FACTFN*RSIN+FACTFT<=RCaS) +VEIFU(JB1G) 
VELFW(JBIG ) =l FACTFN’«=RCOS+FACTFT*RSlN) +VELFW{JBTGi 
VELFAIJBIG) = FACTFQ +VELFAIJBIGI 
DO 350 J=l,Kl I 
JEE= MNOD(J) 

I FI ICP.GT .O.AND .JEE.GT. IK) JEE=JEE-1K 
FACTN=BET( J)^APN/RMASS( JEE) 

FACTT=BET IJ ) *APT/RMASS(JEE ) 

VU(JEE)= I-FACTN^RSIN+FACTT^^RCOS) +VUUEE) 

VWIJEE) = (FACTN*RC0S+FACTT*RSIN) +VW(JEE) 

JVEL(JEE)= 1 
350 CONTINUE 
RETURN 
END 
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SUBROUTINE PENTRN ( TU, T W, TFCGU, TFC GW,NPP, PM AX t NEF, NEOt JF , PAL » RL 
2,IBIG,H,FH. IK,NF,ICP,PD,PALF) 

IMPLICIT REAL-8( A-H,0-Z) 

DIMENSION PNO(51,6),PO(5Ot6),PALE(50f 6) 

DIMENSION TU(i),TW(l ) , TFCGU ( 1 ) , TFCGWI 1 ) , NEF ( I ) , RL C i ) f HI 51,3»,FH« 
COMMON /TAPE/ MWR I TE , MREAD , MPUNCH 
COMMON/BR/ NVtC{51,2), LMTI^l) 

CHECK FOR NODAL IMPACT AND ELEMENT IMPACT 

DO 110 IF = 1,NF 

L=1 

DO 100 IR=1,IK 
PD( IR, IF) = -10.0 
PNDdRrIF) = -10.0 
Ll= NVEC(IRtl) 

L2=NVFC( IR,2) 

IFC IR.NE.LMTIL) ) GO TO 90 
L = L + 1 
GO TO 100 
90 CONTINUE 

CALCULATE OIST FROM FRAG TO NODcl — DFN AND LENGTH OF ELEMENT DEL 
DFN=DSQRT{ (TFCGUI IF)-TU(L1 ) ) ’«'«2 + ( TFCGH ( I F ) -TW( LI ) ) ♦♦2) 

DEL=DSQRT( ( TUI L2 )-TU( L 1 ) )**2+( TWIL2 )-TWlLl ) )**2) 

RLI IR) = DEL 
THICK = 0.0 
DO ^00 J=l,3 

^00 THICK= THFCK+ I H I L I , J ) +HI L2 t J ) ) /2 . 0 


OCRTN IS THE CRITICAL DISTANCE = 
OCRTN= IFHI IF)+THICK)/2.0 
DCRTE=DCRTN 
DU= TUILl )-TFCGUI IF) 

DW = TWILl) - TFCGWIIF) 

DEU= TUIL2) -TUILl) 

DEW= TWIL2) - TWILl) 

TCOS = DEU / DEL 

TSIN = DEW/ DEL 

PAL = -lOU^TCOS+DW’f'TSIN) 


HALF I FRAG DIA, + AVG ELFMENT TH 


PENTOOlO 
PENT0020 
PENT0030 
PENTOOAO 
DPENT0050 
PENT0060 
PENT 0070 
PENT0080 
PENT0090 
PENTOlOO 
PENTOllO 
PENT0120 
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PENTOIAO 
PENT0150 
PENT0160 
PENTOITO 
PENT0180 
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PENT0340 
PENT0350 
PENT0360 
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PALE(fR,IF) = PAL . 

IF {PAL. LT. 0.0) GO TO 100 
IF (PAL. GT. DEL) GO TO 100 
OFE= -(-DW=<'TCOS+ DU»TSIN) 

PD( IK » IF ) = DCRTF-DFE 
100 CONTINUE 
110 CONTINUE 

C CALCULATE THE LARGEST PENETRATION DIST, 
K = 0 

IF IICP.GT.O) K=1 
DO 290 J=L,NF 
290 NEF(J) = 0 
NEO=0 

PMAX= -5.0 
NPP = 0 
PAL = -1.5 
00 300 IR=l,IK 
Ll= NVEC( IR, 1 ) 

L2= NVEC( IR,2 ) 

DO 300 IF= 1,NF 

335 IF(PD{ IR, IF) .3T.0.0) NPP=NPP+l 
IF{PD( TR, IF)-PMAX) 360 ,350,340 
340 PMAX= PO(IR,IF) 

PAL = PALE(IR,IF)/ RL(IR) 

TBIG = IR 

NE0=0 

JF=IF 

DO 345 J=1,NF 
345 NEF(J) =0 
GO TO 360 
350 NEF(IF) =1 
NEO= NEQ+1 
360 CONTINUE 
300 CONTINUE 
RETURN 
END 
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SOB ROUTINE PRINT ( TT, TIM E, HI NN , EIO OT, APD5N , SPRIN , BM (\S S , G2 , NQR , 
♦CINETO,BEP, WET, NV, ES, ASFL ,SNS , N V 1 , N V2 ,NV 3 ,SOL ,QVEL) 

IMPLICIT REAL^^fl (A-H,0-Z) 

DIMENSION ASFL(NV1,3,NV2,NV3) ,SNS (NV1 , 3 , NV2 , NV3) 

DIMENSION AB(18), ES (3 , 6 , 6 ) , SOL ( 1) , QVEL ( 1) , CINETP ( 3) 

DIMENSION COPY (51) ,COPZ (51) ,BEPS (3) 

♦ ,BEP (50,3,3,8) ,WET (5C,3) ,HINN (50,3) ,HOUT(50,3) ,FKTP(3) 

*, FQREF(204) ,BMASS(1) ,CINE(205) ,SPRIN(1) ,FAILI(50) ,FAILO(50) 

COMMON/VQ/ FLVA (205) ,DISP(205) ,DELD(205) ^EINP(50,3) ,BI«P(50,3) 
COMMON/FC/ Y (51) ,Z (51) , ANG (51) ,H(51, 3) 

COMMON /FRAGV/ UDOT (3) , HDOT (3 ) , A DOT (3 ) 

COMMON /FRAG/ FH ( 3) , FMASS (3) , FMOI (3) , UNK (3) , CR (3) , FCGU (3) , FCGH 
*,ALFA (3) ,DFCGIJ(3) ,DFCGW (3) , DALFA (3) ,TREL,FKT (3) ,DSLTAT, NP,MIMP 
COMMON /EP/ EPSI (50) ,EPSC (50) 

COMMON /FG/ IK,IKK,ICP,LREF,NOGA,NFL,NI,ICOI (205) ,INUM(205) 
*,NBCOND,NBC (7) ,NODEB (7) ,KRON (8) ,NDEX (8) ,NIRREG 
COMMON/MAT/YOUNG (3,6) , DS (3,6) , SNO (3,5,6) ,NSFL (3,6) ,P (3,6) ,NLAY 
COMMON /HAT/ TAII, IMCOU 
COMMON /TAPE/ MREAD, M WRITE, MPUNCH 
COMMON /TAM/ MKE(51) 

SIN (Q) =DSIN(Q) 

COS (Q)=DCOS(Q) 

WRITE (HKRITE, 1200) IT 

1200 FORMAT (///,» ENERGY AND WORK AT THE END OF TIME CYCLE', 15) 

WRITE (MHRITE, 1205) 

1205 FORMAT(*0 FRAGM ENT* , 1 0 X, ' KINETIC ENERGY',/) 

CINETT=0.0 
DO 1210 1=1, NF 

CINETF (I) =FMASS (I) /2. 0* (UDOT (I) ♦♦2+WDCT (I) **2) +FM0I (I) /2. 0* 
a (A DOT (I) ’«'*2) 

CINETT= CINETT+ (FKT (I) -CINETF (I) ) 

WRITE (MWRITE,1215) I, CINETF (I) 

1215 FORMATC * , 1 OX ,15 , 1 3X, D1 5 . 6) 

1210 CONTINUE 

CINET=0.0 
DO 701 1=1, NI 


PRINDOI^- 
PRIN0020 
PRIN0030 
PRIN0040 
PRTN0050 
PFIN0060 
PRINC070 
PRIN0080 
PRIN009C 
PRIN01 O') 
PPIN01 10 
(3) PRTN0120 
PRINC-1 30 
PPINOIttO 
PRTN01 50 
PRINOIf^ 
PEIN017n 

PRIN0180 
PFIN01 90 
PRIN0200 
PRIN0210 
PRIN0220 
PRIN0230 
PRTN0240 
PRIN025C 
PEINC26C 
PRIN027G 
PRINO280 
PRINO290 
PRINU300 
PRIN0310 
PRIN0320 
PP.IH0330 
PRIN034O 
PPIN0350 
PRIN0360 
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701 CINST= CINKT+ (QVEL (I) ’*'*2*S0L (I) ) /2.0D+00 
ELASTIC. 0 
DO 702 IE=1,IK 
I=KKE(IR) 

NLAP = NLAY 

IF (MKE (15) .GT.1) NLAP = 1 
DO 703 J=1,NOGA 
SOM=0.0 

DO 801 M=1,NLAP 
NSFLM=NSFL (M,I) 

DO 801 N=1,NFL 
STES=0. 0 
K=N+ (H-1) *NFL 
DO 802 L=1,NSFLM 
LL= L+1 

Afl(K)= (ES(M,L,I) -ES(M,LL,I))/ ES(M,1,I) 

802 STRS^STRSi-SNS (I8, J,k,L) * AB(K) 

STRS= STES**2 

801 SUM = SUM+STRS + ASFL (IR,J,K,NSFLM)/(AB{K)*yomJG(M,I) ) 

703 ELAST= ELAST+ (SUM* SfBT (IE ,J) ) /2 . 0 
702 CONTINUE 
SPDBN=0.0 

IF(NQR ,EQ. 0) GO TO 31 
DO 30 1=1, NI 
30 FQREF(I)=0,0 

CALL OMULT(SPEIN,DISP,ICCI, NI, FQRE?,KROtf,HDEX,NIRPEG) 
DO 32 1=1, NI 

32 SPDEN=SPDEN+DISP (I) *FQREF (I) 

SPD£N=SPDEN/2. 

31 CONTINUE 

PLAST=CINETT-CINET-’ELAST-SPDEN 
TAIIT= TIME - TAII 

WRITE (MHEIT£,1) IT , TIME, TAUT, CINETT,CINET,EtAST,?1.AST 
1 FORMAT(»- TIME (SEC.) =• , D15 . 6, 5X, » TIME 

^lAL IMPACT =*,D15.6,/, 

** WORK INPUT INTO RING (IN. -LB.) =',E15.6,/, 


PRIN0370 
PRIN038r 
PRINU39P 
PRIN040P 
PRTN0410 
PRIN0420 
PRIN0430 
PRIN044P 
PRIN0450 
PRIN0460 
PRIN0470 
PRIN0480 
PRIN0490 
PRINC500 
PRIN0510 
PRIN0520 
PETN0530 
PRIN0540 
PRIN0550 
PEIN0560 
PR I NO 5 70 
PRTNC580 
PRIN0590 
PRIN0600 
PRIN0610 
PRINO620 
PRIN0630 
PRIN0640 
PRIN0650 
PRIN0660 
PRIN0670 
PEIN068? 
PEIN0690 
AFTER INITPR1N070C 
PRIN0710 
PRIN0720 



RING 

KINETIC 

ENERGY 

(IN.-LB. ) 

=',F15.6,/, 

♦ * 

RING 

ELASTIC 

ENERGY 

(IN. -LB.) 

=• ,E15.6,/, 


RING 

PLASTIC 

WORK 

(IN.-LB.) 

=',E15.6) 


IF(NQF .EQ. 0) GO TO 33 
WRITE (MRfilTE, 34) SPDEN 

34 FORMAT (* ENERGY STORED IN THE ELASTIC RESTRAINTS (IN. -LB.) 
♦E15.6) 

33 DO 11 1=1, IKK 

COPY (I)=Y(I) +DISP (1^4-3) *COS (ANG(I) ) -DISP(I*4-2) *SIN(ANG(I) ) 
1 1 COPZ (I) =Z (I) +DISP (1*4-3) *STN (ANG (I) ) <-DIS? (1*4-2) *COS (ANG (I) ) 
IKP1=IK+1 


PRIN0730 
PPIN0740 
PPIN^750 
PRIN0760 
PRIN0770 
=• , PRIN078^ 
PRTN0790 
PRIN0800 
PPTN0810 
PRIN082C 
PRTN0830 


WRITE (WWRITE,2) PRIN0840 

2 FOPMAT(/,» I »,5X,' V ,11X,» W* ,9X,*PSI» ,9Y,*CHI» ,10X, 'COPY*, PRIN0850 

*8X,'COPZ' ,9X,*L*,11X, •W',7X, 'STRAIN (IN) », 4X, • STRAIN (0 UT) •) PPIN0860 

50 DO 21 1=1, IK PRIN0870 

21 WRITE (MWRITE,22) I , DIS P (I* 4- 3) ,DISP(I*4-2) , DISP (1*4-1) ,DISP (1*4) , PRINOB80 

♦COPY (I) , COPZ (I) ,BINP(I,2) ,BIMP (1,2) ,EPSI (I) ,EPSO(I) PRTN0890 

22 F0RMAT(I5,9E12.4,2X,E12.4) PRIM090C 

IF(ICP.GT.O) GO TO 57 PRIN0910 

WRITE (MWRTTE, 24) IKP1 , DISP (IKP1*4-3) , DISP (IKP1*4-2) , PRIN0920 

♦DISP (IKP1*4-1) ,DISP(IKP1*4) ,COPY(IKP1) ,COPZ (IKP1) ,EPSI (IKP1) , PRIN0930 

SEPSO(IKPI) PRIN0940 

24 FORMAT (I5,6D12.4,24X,D12 .4,D14 .4) PRIN0950 

57 CONTINUE PPINO960 

WRITE (MHRITE, 35) PRIN097P 

35 FORMAT (10X, *FRAG NO . = * ,5X, » FCGU =*,9X,'FCGW =',9X,»ALFA =*,9X, PRIN0980 

♦•FROV =’,9X,«FRWV =',9X,*FRAV =',/) PRINn990 

DO 36 1=1, NF PRIN1000 

36 WRITE (MHRITE, 37) I,FC6U(I) ,FCGW (I) ,A1FA (I) ,UDOT (I) ,HDOT (I) ,AD0T(I) PPIN1010 

37 FORMAT (10X,I5,3X,6D15.6,/) PRIN102C 

RETURN PRIN1030 

END PRIN1040 
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SECTION 7 


ILLUSTRATIVE EXAMPLES 


7.1 JET 5A Example; An Impulsively- Loaded Free Single-Layer Uniform-Thick- 
ness Circular Complete Ring without Branches 

7.1.1 Problem Description 

The geometry of the free- ring structure, as shovm in Fig. 11, is a free 
circular ring, 0.4-in thick, 2. 5- in wide, with a mean radius of 7. 7- in. The 
ring is subjected to severe impulsive loading over a peripheral sector of 
126 degrees of its exterior. Taking account of the symmetry of the impulsive 
loading and the ring geometry, only half of the ring is cinalyzed with the 
symmetry-prescribed-displacement conditions imposed at the centerline mid- 
plane. Twenty uniform finite elements are used to model the half ring. To 
demonstrate the multilayer capability of the JET 5A program, the steel ring 
is modeled by two identical layers. The inner layer is designated as the 
reference layer. 

The uniaxial stress-strain properties of the 4130 cast steel ring 

material are represented by a three-mechanical-sublayer model defined by 

a^, = 80,950 psi, .00279; = 105,300 psi, .0225; and a^, = 121,000 

psi, .2000, with an elastic modulus of 29x10^ psi and a yield stress of 

80,950 psi. The strain rate constants are D = 40.4 sec ^ and p = 5, and the 

-3 2 4 

mass density is taken to be 0.733085x10 (lb-sec /in ). 

The impulse is modeled by an initial inward "uniform" velocity of 
10,000 in/sec. In order to represent adequately the impulse at the end of 
the loaded region (an impulse assiimed to be generated by a high explosive 
detonation) , the last node has half the "uniform" normal velocity plus a 
rotational component (see Fig. 11) . 

The JET 5A program will predict the resulting transient structural 
response by using a time step of 4 microseconds. Printout will be given 
every 10 time steps or cycles of computation until 150 cycles have been 
completed . 
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7.1.2 Input Data 

The values to be punched on the data cards are as 


Card 1 


IK = 20 


ICP = O 
NIAY = 2 
LREF = 1 
NOGA = 3 
NFL = 4 
MM = 150 
Ml = 10 
M2 = 10 
ICON = 0 

Card 2 

NSFL(1,1) = 3 
NSFL(2,1) = 3 


Card 3 A 

DENS (If 1) = 0.733085D-03 
DS(1,1) = 0.404000D+02 
P(l,l) = 0.500000D+01 

Card 4AA 


EPS (1,1,1) 
SIG(1,1,1) 
EPS (1,2,1) 
SIG(1,2,1) 


0.279000D-02 
0, 809500D+05 
0.225000D-01 
0.105300D+06 


Card 4AB 

EPS (1,3,1) = 0.200000D+00 
SIG (1,3,1) = 0.121000D+06 


Card 3B 

DENS (2,1) = 0.733085D-03 
DS(2,1) = 0.404000D+02 
P(2,l) = 0.500000D+01 


ORfOINAU PAGE IS 
©If poor quality 

follows: 

1015 


315 

3D15.6 


4D15.6 


4D15.6 

3D15.6 
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Card 4BA 


4D15.6 


EPS(2,1,1) = 
SIG(2,1,1) = 
EPS (2, 2,1) = 
SIG{2,2,1) = 


0.279000D-02 

0.809500D+05 

0.225000D-01 

0.105300D+06 


Card 4BB 

EPS (2, 3,1) = 0.200000D+00 
SIG(2,3,1) = 0.121000D+06 

Card 5 

B(l) = 0.250000D+01 
DELTAT = 0.400000D-05 


Card 6A 

Y(l) = 0.0 

Z(l) = 0.770000D+01 

ANG(l) =0.0 


4D15.6 


2D15.6 


3D15.6 


Additional cards are punched until all the nodes are described. 


Y(21) = 0.0 

Z(21) = -0.770000D+01 

ANG(21) =0.0 

Card 7A 5D15.6 

H(l,l) = 0.200000D+00 
H(l,2) = 0.200000D+00 
H(2,l) = 0.200000D+00 

Additional cards are punched until all the nodal thicknesses for each 
layer are described, five per card. 
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H(21,l) = 0.200000D+00 
H(21,2) = 0.200000D+00 

Card 8A 

UDIS = 0 

Card 9 

NBR = 0 

Card 10 

NOP = 3 
NASP = 1 
NTERF = 1 

Card lOA 

NSBS(l) = 1 

NSEL(l) = 20 

AZET(l) = 0.570000D+00 

Card 11 

AXG(l) = 0.1127016653792585D+00 
AXG{2) = 0.5000000000000000D+00 
AXG(3) = 0.8872983346207415D+00 

Card 12 

AWG(l) = 0.2777777777777778D+00 
AWG(2) = 0.4444444444444444D+00 
AWG(3) - 0.2777777777777778D+00 

Card 13A 

TXG(l) = -0.861136311594053D+00 
TXG(2) = - 0.3 3998104 35848560D+00 
TXG(3) = 0.3399810435848560D+00 

Card 13B 

TXG(4) = 0.861136311594053D+00 
Card 14A 

TWG(l) = 0.3478548451374540D+00 


15 


15 


315 


215,015.6 


3025.16 


3025.16 


3025.16 


025.16 

3025.16 
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TWG(2) = 0.6521451548625460D+00 
TWG(3) = 0.6521451548625460D+00 

Card 14B 

TWG(4) = 0.3478548451374540D+00 

Card 15 

NBCOND = 2 
NBC(l) = 1 
NODEB(l) = 1 
NBC (2) =1 
NODEB(2) = 21 

Card 16 

NQR = 0 

Card 17 

NV = 1 
IOTA = 1 
lOTB =0 
lOTC =0 

Card 18A 

lEl = 1 
IE2 = 7 

Card 18AA 

WRAD = -C.lOOOOOD+05 
WRADl = O.lOOOOOD+05 
ANGVl = 0.0 
WARD2 = -0.500000D+04 
ANGVl = 0.200000IM-05 

Card 21 

TBEGIN =0.0 
TPINAL =0.0 

Card 26 

ICONT =0 


D25.6 

515 


15 

415 


215 

5D15.6 

_ . ' ii' 


2D15.6 

15 


254 


THIS IS THE INPUT DECK FOR EXAMPLE 7.1 


20 0 

’X X. 

2 

1 3 

4 

15.J n 13 

.) 


j 3 

jO. 7330850- 

•03 

0L'.4C4.vj00 + 02 

0 3.500 JOO*..! 



GD. 2790000- 

■02 

00.8095o">0 

35 

') 3. 225 .9D- -1 

.» *.l.)53jjD 

D6 

DO. 20.30000 

00 

OJ. 121 jOJO 

06 




00.733C850- 

•03 

00,404000D + '.i2 

OC . 50O'‘'JCO + <, 1 



G0.27900CD- 

•32 

00.8095 jOD 

35 

0J.225 ' ' >0- '1 

• ). 1'J53 

35 

00.2000000 

30 

00. 1213 iOn 

36 




00.2500000+31 

■30.400 0000- 

•05 




o.oooroooooo 

3 . 770 yjOO 

*3 1 

J. '>0‘J '.3 00 ’'O 

■'.4 jOC ' -.0 

03 

0.1204550 

01 

Oj. 76 052,30 

31 

-J.3 )0 > '30 1 

■'3.<,:'C0 J to 

00 

00.2379430 

01 

0 '.7323140 

01 

-3. 1 R3')71.'>C. 32 

■n.4joo. JO 

00 

00.3495730 

01 

C'0.68 63 750 

01 

-0.270 »00 .2 

'>3.4»'3o jjd: 

•33 

00.4525950 

01 

00.6229430 

01 

- J . 360 J jO 

)0.4 ''OO.V jD 

C) 

00.5444720 

01 

3 3. 5444720 

01 

-0.450 ') JO :2 

J3.4 jOOjjO 

00 

00.5229430 

01 

00.4525950 

01 

-0.540 jOD J2 

jO. 4f, oo: jd 

00 

00.6860750 

01 

03. 3495730 

01 

->.630>30D •2 

.)3.4,.)0JJ*J0 

JO 

00.7323140 

01 

•JJ. 2379430 

31 

-3.720':. JO .-2 

0 J.4'309 >^.D 

00 

00.7605200 

01 

00.1204550 

01 

-o.8ior.oon '2 

JC.4CCOJJO 

00 

00.7700000 

01 

03.0 


-J. 900 33-OP 2 

3-'*.4.)00J*<D 

0.0 

•00.7605200 

01 

-0.1204550 

31 

-J. 990 .JOD >2 

30.4 100)30 

OJ 

00.7323140 

01 

-C.237943D 

01 

-0. lOR'.OOD . 3 

00. 4000'J 30 

oo 

UO. 6860750 

01 

-0.3495730 

01 

-0.1 17- ''10 .<3 

•0.4 .130.' jO 

03 

OJ. 6229430 

01 

- .4525950 

31 

-'J. 126 ' 'JO ‘3 

.-O.^JOO .JO 

oo 

00.5444720 

01 

-0.5444720 

01 

-J.135:*3O0 3 

JO . 4C GO Jon 

OJ 

CO. 4525950 

01 

-C .6229430 

')! 

-3.144 ’-OO 3 3 

c.3.4 joo:> JO 

03 

JO. 3495730 

01 

-3.686 )75D 

31 

15 3 J jOD '3 

3 3.4 jOJ ' jO 

00 

00.2379430 

01 

-3.7323140 

31 

-9.1623JOO '3 

o).4:.oo )jo 

oo 

00.1204550 

01 

-U. 7605200 

01 

-0. 17K 000 ' 3 

3 3.40 JOV )D 

00 

00.0 


-0.77 jooao+oi 

JG. 18r» )J JD i3 

3'J.4CQO..jO 

00 


00.2DUOJ0D+O:) O:-.23O.;u0D+DD 00 . 20 ‘J )U0D+-'0 ?r,.?i.'00>OD+0*» Ou. 20v0000<'0 > 

CD.20000DD+00 O'J . 20 00 j0D*f»0 t.-0. 20C.’f 0D* :0 Ji’. 2COOuuD+O0 O'; . 20 JD00D4-^ > 

0J.20'>P00n + 0‘) 0 1.200 'OOD + OO jj.2:iO'‘ MD+ *'J JO. 23 jO » 7D*0'» 0‘».20 >P00D^0 

O0.23r*0ODO + '^O ■»'^.20 j'-wOO + OO 0O.20 J- 30D*''0 *'0. 2 .'00 :*oD+00 Oj, 2 ' lOOOO + D '• 

OD.20000C D+00 OC . 20O0u0D+-00 00 . 200 '‘O0D+ *0 POOGoOD+O-* 00 . 2POOOOn+Dr; 

00. 2000000+03 0P.2r)0j rjO + 00 0J.2 ?0' >:;D+ '0 ).2 JOO'JD+OO 03.2'' OOCO+0 » 
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7.1.3 Solution Output Data 

The following is the output for 600 microseconds of response of the ring 
to the given initial velocity distribution. 

The first segment of output gives a breakdown of the initial geometry of 
the ring and the initial loading parameters. A calculation of a guideline 
time step size is made and is presented to compare with the user-generated 
time step. 

Strain information is printed at each spanwise Gaussian station, at each 
designated strain point (inner and outer surface and each interface) , and at 
each node (inner and outer surface). The maximum strain is 12.39 per cent 
and occurs on the outer surface of element 9 at 600 microseconds after initial 
loading . 

In the interest of conciseness, only a portion of the called-for output 
is given. Included are (1) all input verification information and (2) 
scheduled output at the end of time cycles 0, 1, 10, 20, 30, 40, 50, 140, 
and 150 (last) . This output listing is intended for use in verification of 
the adaptation of the JET 5A computer code to other computing facilities. 
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THIS IS RIJN HUHBE8 1 FOR THIS Oil 5X SUPRITlAl 


THEEE ARE HO BRANCHES CONNECTED TO THE MAIN SIHUCTOHE .IHEaEFORB 
THE Nt;|!BERIHr, SISTEM FOR NODES AND ELEKENT5 REMAINS tlNCHANGED 

ADDITIORAI STRAIN POINT EIEMENT S COORDINATE 

1 20 0.5700COC*00 


•**•••***** A SPATIAL FINITE ELEMENT AND HCOHOLT TEMPCRAL OPERATOR PROGRAM 

USED TO CALCULATE THE HCNtlNEAR RESPONSES OF A VARIABLE THICKNESS MULTILAYER 
ARBITRARILY CURVED PARTIAL RING KITH THE FOLLOWING PARAMETERS 


PROPERTIES OF THE HAIH STRUCTURE: 

WIDTH OF RING (IN) 

HUMBER OF ELEMENTS - 

NUMBER OP SPANWISE GAUSSIAN POINTS = 

NUMBER OF DEPTHWISE GAUSSIAN PCIHTS 
NUMBER OF LAYERS = 

REFERENCE SURFACE IS THE MIDDLE SURFACE CF LAYEP= 


0. 2SO0OOE*O1 
20 


MATERIAL PROPERTIES OF LAYER 
DENSITY ;<LE-S£C**2/IM*F4) 

NUHBEh OF MECHANICAL SUBLAYERS 


1 


0.7330a5D-03 

3 


STRAIN 

0.279000D-02 
0. 225000D-01 
Oi200CO0D»00 


STRESS 

0.609500D+05 
0. 1C530CD+06 
0-121000D+06 


MATERIAL IS STRAIN RATE SENSITIVE WITH 

D -■« 0.404000D+02 P= O.SOOOOOD+OI 


MATERIAL PROPERTIES CF LAYER 
DENSITY (L3-SEC»»2/IN**4) 

NUMBER OF MFCHANICAL SUHIAYFRS 


0.7330B5D-03 

3 


STRAIN 

1 0.279000E-02 

2 0.225000D-91 

3 o. 2 ooooocton 


STRESS 

0.8095C0D+05 

0.1C5300D*06 

0-121000D+06 


MATERIAL IS STRAIN HATE SENSITIVE WIIH 


D = O.40U0O0D<-02 P = 


0.500000D+01 


SYMMETRY DISPLACEMENT CONDITION AT NODE = 
SYMMETRY DISPLACEMENT CONDITION AT NODE = 


1 

21 


THEBE ARE NO ELASTIC SPRING CONSTRAINTS 


Nons MO 

r COORC(IN) 

Z COORD (xN) 

SLOPE ( RAD) 

RING THICKNESS (IN) 
LAYER 1 - - 

LAYER 2 - 

1 

0.0 

0.7700000*01 

0.0 

0.2000000*00 

0.2000000*00 

2 

0.120455D»01 

0.7605200*01 

-0.1570800*00 

0^2000000*00 

0.2000000*00 

3 

0. 2379431+01 

0.732314D*01 

-0.3141590*00 

0.2000000*00 

0.2000000*00 

4 

0.349573C*01 

0.686075D*01 

-0.4712390*00 

:C>. 2000000*00 

0.2000000*00 

5 

0.452595D+01 

0.6229430*01 

-0,6283190*00 

0.2000000*00 

0.2000000*00 

6 

0.5444720*01 

0.5444720*01 

-0.7353980*00 

0.2000000*00 

0.2000000*00 

7 

0.6229430*01 

0.4525950*01 

-0.9424780*00 

0.2000000*00 

0.2000000*00 

8 

0.6860750*01 

0.3495730*01 

-0.1099560*01 

0.2000000*00 

q. 2 000 000*00 

9 

0.732314D*01 

0.2379430*01 

-0.1256640*01 

0.2000000*00 

0.2000000*00 

10 

0.7605200*01 

0.1204550*01 

-0.1413720*01 

0.2000000*00 

0.2000000*00 

11 

0.77COOOD*01 

Q.O 

-0.1570800*01 

0.2000000*00 

0.2000000*00 

12 

0.7605200*01 

-0.1204550*01 

-0.1727880*01 

0.2lOOO0D*O0 

0.2000000*00 

13 

0.732314C*01 

-0.2379431*01 

-0. 1884960*01 

0. 2000000*00 

0.2000000*00 

14 

0.6B6075D*01 

-0.3495730*01 

-0.2042040*01 

0.2000000*00 

0.2000000*00 

15 

0.6229431*01 

-0.4525950*01 

-0.21991 10*01 

0.2000 000*00 

0.2000000*00 

16 

0.5444720*01 

-0.5444720*01 

-0.2356190*01 

0.2000000*00 

0.2000000*00 

17 

0.4525950*01 

-0.622 9430*01 

-0,2513270*01 

0.2000000*00 

0.2000000*00 

19 

0.3U9.573D^01 

-0. 6860750*01 

-0.2670350*01 

0.2000000*00 

0,2000000*00 

19 

0.2379431*01 

-0.7323140*01 

-0.2827430*01 

9.2000000*00 

0.2000000*00 

20 

0.120455D^01 

-0.7605200*01 

-0.2984510*01 

0.2000000*00 

0.2000000*00 

21 

0.0 

-0.7700000*01 

0.3141590*01 

0.2000000*00 

0.2000000*00 


LATER 3 


259 


GAUSSIJIN STATIONS AND WEIGHTS: 


AX6 

1 

- 

0.112701665379259 

AW6 

1 

= 

0.277777777777778 

AXG 

2 


0.500000000000000 

AWG 

2 


0.444444444444444 

AXG 

3 

= 

0. 8872953311620741 

AWG 

3 

= 

0.277777777777778 

TXG 

1 

S 

-0.861136311594053 

TMG 

1 

— 

0.347854845137454 

TXG 

2 

s 

-0.3399510435B4856 

THG 

2 

- 

0.652145154662546 

TXG 

3 

= 

0.339981043S84BS6 

THG 

3 


0.652145154862546 

TXG 

4 

- 

0.861136311594053 

THG 

4 

= 

0.3U7B54845137454 


SIZE OP ASSEMBLED BASS OR STIFFNESS BATEIX= 530 


BRASS ' 

0. 10000000 D *-01 

0,0 

0,.10050242D-03 
0. 18415082D-O5 
-0.99202062D-09 
0.66919062Drb3 
-0.32489155D-0!* 
-0. 184236360-05 
0^778559630-05 
0.6857502,90-03 
-0.350958830-04 
0. 120504790-03 
-0.783870610-05 
0. 536436510-09 
0.79030193D-09 
0,100501530-03 
0. 184156630-05 
0.10377000D-09 
0.669189880-03 
-0. 32489315D-04 
-0. 184237320-05 
0.778543320-05 
0,685750290-03 
-0.350955690-04 
0. 12050526D-03 
-0,783858730-05 
-*0.201421890-09 
0.796117150-09 
0.100501200-03 
0.184155670-05 
0, 119933190-08 
0.669192740-03 
-0.324898110-04 
-0. 184239510-05 
0.7795461 OD-05 
0.685748220-03 
-0.35095795D-04 
0. 120504110-03 
-0. 783850350-05 
0. 202313500-08 
0.797434970-09 
0. 10050253D-03 
0.1 84159290-05 
-0.301227380-09 
0,669189860-03 
-0. 324895890-04 
-0.184238310-05 
0.778561320-05 
0.685747230-03 
-0. 350953750-04 
0.120504390-03 
-0.783847090-05 
0. 127224340-00 
0.80383476D-09 
0. 100501980-03 
0.18415762D-05 
0.50851487D-09' 
0.669190620-03 
-0.324898430-04 
-0.1 84239990-05 
0.778555100-05 
0.685748220-03 
-0.350951930-04 
0.0 

^0.783871930-05 

0.0 

0.0 


0.0 

0.122040910-04 

0.0 

-0.14463178D-04 
0. 151011900-04 
-0. 290180220-04 
-0.104179720-04 
-0.998489210-05 
0.35095721D-04 
0.778235010-05 
-0,783058600-05 
0.29018809C-04 
0. 517406210-10 
0. 29298227D-04 
0.244070280-04 
0.324809030-04 
-0. 144634540-04 
0.151014660-04 
-0.290187760- 04 
-0.104180440-04 
-0.998496570-05 
0.350954690-04 
0.778246020-05 
-0.703870560-05 
0.290188360-04 
0. 268269200-10 
0, 292982860-04 
0.244078910-04 
0. 324887360-04 
-0. 144631830-04 
0.151011890-04 
-0.290187950-04 
-0,104182540-04 
-0.998516550-05 
0.350956930-04 
0.778247400-05 
-0.783871880-05 
0. 290189480-04 
-0.7C286108D-11 
O.292902B4D-O4 
0.244078910-04 
0.324894220-04 
^0.144631890-04 
0. 151011950^04 
-0.290188330-04 
-0. 104181560-04 
-0. 99850683D-05 
0,350951840-04 
0.778223750-05 
-0.78384692D-05 
0.290189460-04 
-0.31878774D-1.0 
0.292902090-04 
0.244078280-04 
0.324891470-04 
-0^144631850-04 
0.151011960-04 
-0;.290187290-04 
-0. 104182730-04 
-0.998S1905D-05 
0.35095023 D-04 
0.77822672D-05 
-0.783850200-05 
0.0 
0.0 

0.100000000-»01 
0. 122040910-04 


0^342875810-03 

0.0 

0.783870760-05 
0,149749420-09 
0.80307262D-C9 
0. 100501200-03 
0.184155300-05 
0.122362270-08 
0. 669191720-03 
O.32489891D-04 
0,184239660-05 
0,778545830-05 
0,685747480-03 
0,350955730-04 
0.120504390-03 
0.783887110-05 
0.864700850-09 
0. 798854110-09 
0.100501530-03 
0.184156140-05 
0,407654180-09 
0. 669191720-03 
-0.324895840-04 
-0.18423834D-05 
0.77853475D-05 
O.60574784D-C3 
-0 .350958260-04 
0 .120504110-03 
-0.783880730-05 
0.19134890D-C8 
0-79309534D-09 
C. 100502420-03 
0.18415B83D-05 
0.1035S583D-C9 
0.669189440-03 
-0.32489809 D-04 
^0.184239520-05 
0. 778526440-05 
0.685747840-C3 
-0.35095128D-04 
0.12050526D-03 
-0.78388502D-05 
0.43818294D-09 
0.79341542D-09 
0.100501980-03 
0.18415766D-05 
-0.20064639D-09 
0. 669187510-03 
-0. 324893880-04 
-0.18423682D-05 
0.77852345D-05 
0. 685747480-03 
-0.35095289D-04 
0.12050479D-C3 
-0.783867960-05 
0*132931940-08 
0.80259907D-09 
0.100502530-03 
0. 184158970-05 
-0. 101670240-08 
0.66918944D-03 
-0. 324892100-04 
-0.1B423598D-05 
0.0 

0.342875C8D-03 
-0.3509579 80-04 


0.0 

0.29018785D-04 
-0.522648550-11 
0,292982280-04 
0.24407842D-04 
0.324887490-04 
-0.14462681D-04 
0. 15100685D-04 
-0.290188420-04 
-0. 10418285D-04 
-0. 998519050-05 
0.350954630-04 
0.77824352D-05 
-0,783067890-05 
0.290187560-04 
0.101241170-10 
0*292960600-04 
0,244076760-04 
0,324889200-04 
-0.144627830-04 
0.15100791D-04 
-0. 290168210-04 
-0. 104181550-04 
-0.998506830-05 
0.35095778D-04 
0.770259750-05 
-0.783885040-05 
0.290188040-04 
0.253074940-10 
0.2929B241D-04 
0.24407842d*«04 
0.324893700-04 
-0.14463076D-04 
0.15101083 C-04 
-0.290187910-04 
-0.104TB253D-04 
-0.99R51655D-05 
0.35095089D-04 
0.77825530D-05 
-O.78308O76D-O5 
0.290187110-04 
0.40744473D-10 
0.29298502D-04 
O.244O0O89O-O4 
0.324891460-04 
-0. 14462788D-04 
O.151OO709D-O4 
-0.2901 69480-04 
-0,104180610-04 
-0.99849657D-05 
C.35 095270D-04 
0.778261410-05 
-0. 783887180-05 
0.290 18022D*^O4 
-0.20681772D-10 
0.29298490D-04 
0. 244080890-04 
0.32489433D-04 
-0. 144626820-04 
0.151006850-04 
-0.290189530-04 
-0. 10417985D-C4 
-0.998489210-05 
0.0 
0.0 

-0.783870700-05 


0.0 

0.0 

0. 685743220-03 

0.0 

0.120504110-03 
-0.7B3B50350-05 
0.202313500-08 
0.797434970-09 
0.100502530-03 
0.194159290-05 
-0.301227380-05 
0.669189880-03 
-0.324B9589D-04 
-0.184238310-05 
0.778561320-05 
0.6857 47280-03 
-0.350953750-04 
0,120504390-03 
-0.783847090^05 
0. 127224340-06 
0.803834760-09 
0. 10050198D-03 
0. 184157620-05 
0.503514870-09 
0. 669190620-03 
-O.32489043C-O4 
-0.184239990-05 
0.77855518D-05 
0.68574822D-03 
-0.35095193D-04 
0. 12050517D-03 
-0,783871930-05 
0.B9093B87D-09 
0.79768562D-09 
0. 100502420-03 
0.184158820-05 
-0. 992020620-09 
0.669190620-03 
-0.324801 550-04 
-0. 184236360-05 
0.778559630-05 
0.685750290-03 
-0. 350958830-04 
0. 120504790-03 
-0.783870610-05 
0.536436510-09 
0.790301930-09 
0.100501530-03 
0.184156630-05 
0. 103770000-09 
0.669189880-03 
-0. 324893150-04 
-0. 184237320-05 
0.778543320-05 
0. 685750290-03 
-0. 350955680-04 
0.120505260-03 
-0.783858730-05 
-0.201421890-09 
0.796117150-09 
0. 100501200-03 
0.194155670-05 
0,119933190-08 
0 . 100000000*01 
0.0 

-0.104239510-05 


0 . 100000000*01 

0.35095693C-04 

0.0 

-0.783871880-05 
0.290189480-04 
-0.702861080-11 
0.292982840-04 
0.244078910-04 
0.324894220-04 
-0.144631890-04 
0. 151011950-04 
-0. 290188330-04 
-0, 104181560-04 
-0.99850683D-05 
0.350951840-04 
0.778223750-05 
-0.78384692D-C5 
0.290189460-04 
-0.318787740-10 
0.292982090-04 
0.244078280-04 
0.324891470-04 
-0. 144631050^04 
0.15101196 D-04 
-0,29018729 D-04 
-0.104182730-04 
-0.998519050-05 
0.350950230-04 
0.778226720-05 
-0.783850200-05 
O.29O10779D-O4 
0.999633840-11 
0.292985940-04 
0.244001820-04 
0.324893700-04 
-0. 1446317BD-04 
0,151011900-04 
-0.290188220-04 
-0.104179720-04 
-0.993489210-05 
0.350957210-04 
0.778235010-05 
-0.7B385860D-05 
0.290188090-04 
0.51740621D-10 
0. 292982270-04 
0. 244078280-04 
0. 324889030-04 
-0.14463454D-04 
0. 15101466C-04 
-0,290187760-04 
-0.10418044D-04 
-0.998496570-05 
0.35095469D-04 
0. 778246020-05 
-0.70387056 C-05 
0.290168360-04 
0.2692692CD-10 
0.29298286D-04 
0. 244078910-04 
0.324887360-04 
-0. 144631830-04 
0. 151011890-04 
-0.290187960-04 
0.0 

-0.99851655D-05 


0.0 

0.669189440-03 

-0.324898090-04 

0.0 

0.778526440-05 
0.68574784D-03 
-0.35095128D-04 
0.120505260-03 
-0.78388S02D-05 
0.438102940-09 
0.793415420-09 
0.10050198D-03 
0. 184157660-05 
-0.20064639D-09 
0.669187510-03 
-0,324893880-04 
-0, 164236820-05 
0. 778523450-05 
0,685747480-03 
-0.350952890-04 
0.120504790-03 
-0.78386796D-05 
0.132931940-08 
0.802599070-09 
0.100502530-03 
0.184158970-05 
-0.101670240-08 
0. 669189440-03 
-0.32489210D-04 
-0. 184235980-05 
0. 770547210-05 
0.685750890-03 
-0. 350957980-04 
0.12050517D-03 
-0.78387076D-05 
-0.149749420-09 
0.803072620-09 
0.100501200-03 
0.184155300-05 
0.122362270-08 
0. 669191720-03 
-0.32489891D-04 
-0.184239660-05 
O.77854503D-O5 
0. 685747480-03 
-0. 350955730-04 
0,120504390-03 
-0. 783887110-05 
0.864700850-09 
0.7988541 1D-C9 
0.10050153D-03 
0.184156140-05 
0.4076541 0D-O9 
0.669 191720-03 
-0. 324895840-04 
-0.184238340-05 
0.778534750-05 
0.68574784D-03 
-0,350958260-04 
0.120504110-03 
-0.783880730-05 
0.19134890D-08 
0.79309534D-09 
0. 100502420-03 
0.0 
0.0 


0,755053360-05 

0.0 

0.0 

-0.998516550-05 
0.3509S089D-04 
0.77825530b-05 
-0.78388076D-05 
0.290187110-04 
0.407444730-10 
0.292985020-64 
0.244080690-04 
0.324891460-04 
-0. 144627860-04 
0.151007890-04 
-0.290189480-04 
-0.104100610-04 
r0.99849657D-05 
0. 350952700-04 
0.778261410-05 
-0. 783887100-05 
0.29018822D-04 
-0. 206817720-10 
0.292984900-04 
0.2440B089D-04 
0.324694330-04 
-0.144626620-04 
0.151006850-04 
-0.29018953D-04 
-0.104179850-04 
-0.996489210-05 
0.350956900-04 
0.778246290-05 
-0.703870700-05 
0.290187650-04 
-0. 522648550-11 
0.292982280-04 
0.244076420-04 
0.324887490-04 
-0. 144626810-04 
0.151006850-04 
-0. 290188420-04 
-0.104182850-04 
-0. 998519050-05 
0*350954630-04 
0.778243520-05 
-0.783867890-05 
0,290187560-04 
0. 101241 17D-10 
0.292960600-04 
0.244076760*04 
0,324889200-04 
-0.144627830-04 
0. 151007910-04 
-0.29018821D-04 
-0. 104181550-04 
-0.998506830-05 
0.35095778D-04 
0.778259750-05 
-0.783885040-05 
0.290188040-04 
0. 253074940-10 
0. 292982410-04 
0.24407642I>-04 
0.324893700-04 
0.0 

0.755054940-05 
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STIFK = 

0.100000000*01 0.0 0.407709780*07 0.0 0.0 0.100000000*01 0.0 

0.0 0.480249040*07 0.0 0.263593580*07 0.0 -0.277173670*07 0.576465050*08 

-0.452040020*07 0.0 -0.277727750*07 0.668280930*02 0.975431460*07 0.0 0.262310860*07 

0.158774520*07-0. 525125310*07 0.203324300*03 0.473698290*07 0.0 -0.277728810*07 0.0 

0.117392470*02 0.461902200*07 0.177862800*03 0.960493130*07 -0.287651710*08 0.263589110*07 0.307385280*07 

0.576464450*03-0.263604550*07 -0.452052730*07 -0.262330740*07 -0.277730410*07 0.191420710*02 0. 975433730+07 

0.26231731D+07 0, 108268770*07 0.156774680*07 -0.525123480*07 0.104173110*03 0.473700160*07 0.277172520*07 

-0.158794300*07 -0.120061190*07 0.192300260*02 0.461900430*07 0.183058620*03 0.960495560*07-0.287648810*08 

0.307381840*07 -0.277175040*07 0.576463050*08 -0.263586460*07 -0.452038840*07 -0.262328050*07 -0.277727240*07 

0.975422060*07 0.307381020*07 0.262309040*07 0. 108267610*07 0. 158774340*07 >0. 525124010*07 0.201969100*03 

0.277169820*07 -0.277728870*07 -0.158794850*07 -0.120062360*07 0^389814010*02 0.461900360*07 0.193505450*03 

-0.287649990*08 0.263595670*07 0.307383250*07 -0.277173820*07 0.575465000*08 -0.263593980*07 -0.452044530*07 

-0.277728540*07-0.116525260*03 0.975435230*07 0.307381830*07 0*262312450*07 0. 108268090*07 0.158774480*07 

0.204446880*03 0.473700060*07 0.277170950*07 -0.277729680*07 -0.158794620*07 -0.120061880*07 0.451760620*02 

0.196242870*03 0.960494340*07 -0.287650990*08 0.263606530*07 0.307383850*07 •-0.277175620*07 0.576466480*08 

-0.452049270*07 -0.262332830*07 -0.277729020*07 -0.315391030*01 0.975435390*07 0.307363370*07 0.262312460*07 

0.1S877420D+07 -0.525127230*07 0.164688360*03 0,473698020*07 0.277169040*07 -0.277730940*07 -0.158794940*07 

0.242425170*02 0.461904180*07 0.186482720*03 0.960489940*07-0.287650990*08 0.263585780*07 0. 307384670*07 

0. 576455010+08 -0.263606220*07 -0,452049320+07 -0.262328930*07 -0.277729880*07 0.110232600*03 0.975435290*07 

0.262316450*07 0.108268490*07 0.158774760*07-0.525124090*07 0.124478640*03 0.473700060*07 0.277173030*07 

-0.158794230*07-0.120061430*07 0.281272540*01 0.461901210*07 0.173446470*03 0.960494340*07-0.287649990*08 

0.307383310*07 -0.277173560*07 0.576463050*08 -0.263595360*07 -0,452044530*07 -0.262328870*07 -0.277728600*07 

0,975422090*07 0.307381750*07 0.262312710*07 0.108268090*07 0.158774520*07 -0.525123880*07 0.127189290*03 

0.277171210*07 -0.277729530*07 -0.158794570*07 -0.120061880*07 0.926552110*01 0.461900380*07 0.177887740*03 

-0.287648810*08 0.263586780*07 0.307382380*07 -0.277172440*07 0.576464450*08 -0.263600100*07 -0.452038870*07 

-0.277727800*07 -0. 254322290*02 0.975433730+07 0.307380240*07 0.262311650*07 0.108267630*07 0.158774700*07 

0.224678060+03 0. 473700160+07 0.277172440*07 -0.277728350*07 -0.1587943 80*07 -0. 120G6236 E*07 0 .286771400*02 

0.186092380*03 0.960495560*07-0.287651700*08 0.263604860*07 0.307384650*07-0.277175120*07 0.576465040*08 

-0.452052700*07 -0.262333700*07 -0.277729750*07 -0.731293510*02 0.975431420*07 0.307383930*07 0.262314290*07 

0.158774260*07 -0.525125450*07 0.125856550*03 0.473698280*07 0.277169490*07 -0.277731470*07 -0.158794840+07 

0.365311570*02 0.461902180*07 0.193684350*03 0.960493130*07 -0.207649050*08 0.263594190*07 0. 307382340+07 

0.5764627-60*08 -0.263593260*07 -0.452040020*07 -0.26 2327280*07 -0.277727720*07 -0.314888460*01 0.975419500*07 

0.262310740*07 0.108267720*07 0.158774510*07-0.525123040*07 0.164538140*03 0.473696880*07 0.277171060*07 

-0.158794620*07 -0.120062270*07 0.240785140*02 0.461899370*07 0.185399790*03 0.960498080*07 -0.287649050*08 

0,307382360*07 -0,277173670*07 0.576465050*08 -0.263593870*07 -0.452040020*07 -0.262327170*07 -0.277727750*07 

0.975431460*07 0.307380850*07 0.262310860*07 0.108267720*07 0.158774520*07 -0.525125310*07 0.203324300*03 

0.277171180*07 -0.277728810*07 -0.158794600*07 -0.120062270*07 0.117392470*02 0.461902200*07 0.177862800*03 

-0.287651710*08 0.263589110*07 0,307385280*07 -0.277172110*07 0.576464450*08 -0,263604550*07 -0.452052730*07 

-0.277730410*07 0.191420710*02 0.9754 •’5730*07 0.307383030*07 0.262317310*07 0.108268770*07 0.158774680*07 

0.104173110*03 0.473700160*07 0.27 '172520 + 07 -0.277730870*07 -0.158794300*07 -0.120061190*07 0.192300260*02 

0,183058620*03 0.960495560*07 -0.287648810*08 0.263600410*07 0.307381840*07 -0.277175040*07 0.576463050*08 

-0.452038840*07 -0.262328050*07 -0.277727240*07 -0.821356140*02 0.975422060*07 0,307381020*07 0.262309040*07 

0.158774340*07 -0.525124010*07 0.201969100*03 0.473695910*07 0.277169820*07 -0.277728870*07 -0.158794850*07 

0.389814010*02 0.461900360+07 0.193505450*03 0.960496440*07 -0.287649990*08 0.263595670*07 0.307383250*07 

0.576465000*08 -0.263593980*07 -0.452044530*07 -0.262329130*07 -0-277728540*07 -0.116525260*03 0.975435230*07 

0.262312450*07 0.108268090+07 0.158774480*07 -0.525124290*07 0.204446880*03 0.473700060*07 0.277170950*07 

-0.158794620*07-0.120061880+07 0.451760620*02 0.461901180*07 0.196242870*03 0.960494340*07-0.287650990*08 

0-307383850*07 -0.277175620+07 0.576466480*08 -0.263585450+07 -0.452049270+07 -0.262332830*07 -0.277729020*07 

0,975435390*07 0,307383370*07 0.262312460*07 0.106268460*07 0.158774200*07 -0.525127230*07 0.164688360*03 

0.277169040*07 -0.277730940*07 -0.158794940*07 -0.120061480*07 0.242425170*02 0.461904180*07 0.186482720*03 

-0.287650990*08 0.263585780*07 0.307384670*07 -0,277171670*07 0.576465010*08 -0.263606220*07 -0.452049320*07 

-0.277729880*07 0.110232600*03 0.975435290*07 0.307382180*07 0.262316450*07 0.106268490*07 0.158774760*07 

0.124478640*03 0.473700060+07 0.277173030*07 -0.277730140*07 -0.158794230*07 -0.120061480*07 0.281272540*01 

0.173446470*03 0.960494340*07 -0.287649990*08 0.263594300*07 0.307383310*07 -0.277173560*07 0.576463060*08 

-0.452044530*07 -0.262328870*07 -0 .277728600*07 0.758350940*02 0.975422090*07 0.307381750*07 0.262312710*07 

0.158774520*07 -O.52512388D*0'7 0.127169290*03 0.473696910*07 0.277171210*07 -0.277729630*07 -0.158794570*07 

0.926552110*01 0.461900380*07 0.177887740*03 0.960496440*07 -0,287648810*08 0.263586780*07 0.307382380*07 

0. 576464450*08 -0.263600100*07 -0.452038670*07 -0.262325490*07 -0.277727800*07 -0.254322290*02 0.975433730*07 

0.262311650*07 0.108267630*07 0.158774700*07-0.525123500*07 0.224678060*03 0.473700160*07 0.277172440+07 

-0,158794380*07-0.120062360*07 0;28677140D*02 0.461900430*07 0.185092380*03 0,960495560*07-0.287651700*08 

0.307384650*07 -0.277175120+07 0.576465040*08 -0.263588790*0.7 -0.452052700*07 -0.262333700*07 -0.277729750*07 

0.975431420*07 0.307383930*07 0.262314290*07 0.108268740*07 0.158774260*07 -0.525125450*07 0.125856550*03 

0. 277169490*07 -0.277731470*07 -0.158794840*07 -0.120061190*07 0.365311570*02 0.461902180*07 0.193684350*03 

0.0 0.0 0.0 0.0 0.100000000*01 -0.263593260*07 -0.452040020*07 

-0.277727720*07 0.0 0.487709730*07 0,0 0.0 0.0 0.0 

0.0 0.100000000+01 0.27717106D+07 -0.277728840*07 -0.158794620*07 -0.120062270*07 0.0 

0.0 0.48024904D*0"7 

HIGHEST KATUHM FREQUENCY (RAO/SEC) - 0.127371310*07 

DELTAT SHOUIO BE EQUAL TO OH LESS THAN 0.1500000-05 

TINE STEP SIZE USED IN PHOGRAH (SEC) = 0.4000000-05 

IMPULSE LOADINGS HAVE BEEN SPECIFIED AS DESCRIBED BY INPUT 

1 LOCAL INITIAL NORMAL VELCCITY FIELDS ARE DESCRIBED BELOH: 

FIRST RLEH TOTAL ElEHS HEAD VRAD1 ANGV1 HRAD2 

1 7 ' -0. 100000C+OS -0.1000000*05 0.0 -0.5000000*04 

there is NO IIME DEPENDENT FORCE DISTRIBUTION DURING THIS ,RUN 


0.230943940*07 

0.0 

0.0 

-0.120062270*07 
-0.277172110*07 
0.307383030*07 
-0.277730870*07 
0.263600410*07 
-0.821356140*02 
0.473696910*07 
0.960496440*07 
-0.262329130*07 
-0.525124290*07 
0.461901180*07 
-0,263585450*07 
0.108268460*07 
-0.120061480*07 
-0.277171670*07 
0.307382180*07 
-0.277730140*07 
0,263594300*07 
0.758350940*02 
0.473696910*07 
0.960496440*07 
-0.262325490*07 
-0.525123500*07 
0.461900430*07 
-0.263588790*07 
0.108268740*07 
-0. 120061190*07 
-0.277173790*07 
0.307360880*07 
•0.277728840*07 
0.263593580*07 
0.668280930*02 
0.473698290*07 
0.960493130*07 
-0.262330740*07 
-0.525123480*07 
0.461900430*07 
-0.263586460*07 
0. 108267610*07 
-0. 120062360*07 
-0.277173820*07 
0.307381830*07 
-0.277729680*07 
0.263606530*07 
■0.315391030*01 
0.473698020*07 
0.960489940*07 
■0.262320930*07 
-0.525124090*07 
0.461901210*07 
-0,263595360*07 
0.108268090*07 
•0. 120061880*07 
-0.277172440*07 
0.307380240*07 
■0.277728350*07 
0.263604860.’’07 
•0.731293510*02 
0.473698280*07 
0.960493130*07 
•0.262327280*07 
0.0 

0.230950430*07 


AHGV2 

.2000000*05 


THE FOILOWING IS THE TIHE SOIOTION CP AN EXTEENAIXY LOADED STRUCTOFE. 

CUTPDT WILL BE PRINTED EVERY 10 CYCLES OSINGODIPOT OPTION 3. 
reaction forces applied to the STRUCTURE HILL BF PRINTED AT EACH OUTPUT CYCLE 
FOR NODES AT WHICH BOUNDARY CONDITICNS ARE SPECIFIED. D.O.F. THAT ARE 
NOT RESTRAINED AT THAT NODE HILL HAVE A REACTION FORCE = 0.0. 


J= 0 TIBE (SEC.) - 0.0 


WORK 

INPUT INTO BING 

(IN. 

-LB.) 

0.306676D+06 







RING 

KINETIC 

ENERGY 

(IN. 

-LB.) 

0.306676C+06 







BING 

ELASTIC 

ENERGY 

(IN. 

-LB.) 

0.0 







RING 

PLASTIC 

WORK 

(IN. 

-LB.) 

0.0 







I 

V 

H 


PSI 

CHI 

CCPY 

COPZ 

L 

H 

SIRAIN (IN) 

STRAIN (OUT) 

1 

0.0 

0.0 


0.0 

0.0 

0.0 

0.7700D*-01 

0.0 

0.0 

0.0 

0.0 

2 

0.0 

0.0 


0.0 

0.0 

0.1205D*01 

0.76050*01 

0.0 

0.0 

0.0 

0.0 

3 

0.0 

0.0 


0.0 

0.0 

. 0.2379D+01 

0.73230*01 

0.0 

0.0 

0.0 

o.c 

4 

0.0 

0.0 


0.0 

0.0 

0.3496D+01 

0.6861D*01 

0.0 

0.0 

0.0 

0.0 

5 

0. 0 

c.o 


0.0 

0.0 

0.4526D+01 

0.62290*01 

0.0 

0.0 

0.0 

0.0 

6 

0.0 

0.0 


0.0 

0.0 

0.5445D+01 

0.54450*01 

0.0 

0.0 

0.0 

0.0 

.7 

0.0 

0.0 


0.0 

0.0 

0.6229D+01 

0. 45260*01 

0.0 

0.0 

0.0 

0.0 

3 

0.0 

0.0 


0.0 

0,0 

0.6861D+01 

0.34960*01 

0.0 

0.0 

0.0 

c.o 

9 

0. 0 

0.0 


0.0 

0.0 

0.7323D+01 

0.23790*01 

0.0 

0.0 

0.0 

0.0 

10 

0.0 

0.0 


0.0 

0-0 

0.7605D+01 

0.12050*01 

0.0 

0.0 

0.0 

0.0 

11 

0.0 

0.0 


0.0 

0.0 

0.7700D<-01 

0.0 

0.0 

0.0 

0.0 

0.0 

12 

0.0 

0.0 


0.0 

0.0 

0.76050*01 

-0.12050*01 

0.0 

0.0 

0.0 

0.0 

13 

0.0 

0.0 


0.0 

0.0 

0.7323D+01 

-0.23790*01 

0.0 

0.0 

0.0 

0.0 

14 

0.0 

0.0 


0,0 

0.0 

0.6861D*01 

-0.34960*01 

0.0 

0.0 

0.0 

0.0 

15 

0.0 

0.0 


0.0 

0.0 

0.6229D*01 

-0.45260*01 

0.0 

0.0 

0.0 

0.0 

16 

0.0 

0.0 


0.0 

0.0 

0.5445D+01 

-0.54450*01 

0.0 

0.0 

0.0 

0.0 

17 

0. 0 

0.0 


0.0 

0.0 

0.4526D+01 

-0.62290*01 

0.0 

0.0 

0.0 

0.0 

18 

0.0 

0.0 


0.0 

0.0 

0.34960*01 

-0.68610*01 

0.0 

0.0 

0.0 

0.0 

19 

0.0 

0.0 


0.0 

0.0 

0.2379D*01 

-0.73230*01 

0.0 

0.0 

0.0 

0.0 

20 

0.0 

0.0 


0,0 

0.0 

0.12050*01 

-0.76050*01 

0.0 

0.0 

0.0 

0.0 

21 

0.0 

0.0 


0.0 

0.0 

0.0 

-0.77000*01 



0.0 

0.0 


J= 

1 

TIHE 

(SEC.) = 0. 4000000-05 

HOBK 

INPUT INTO RING (IN. -LB.) = 

0.306676E*06 

RING 

KINETIC 

ENERGY 

(IN. -LB.) 

0.298832C*06 

BING 

ELASTIC 

ENERGY 

(IN. -LB.) = 

0. 1818170*04 

RING 

PLASTIC 

WORK 

(IN. -LB.) = 

0. 6025720*04 


I 

V 

W 

PSI 

CHI 

COPY 

COPZ 

L 

n STRAIN (IN) 

STRAIN (OUT) 

1 

0.0 

-0.3993D-01 

0.0 

-0.42110-02 

0.0 

0,76600*01 

-0. 16430*06 

-0.16460*05 -0.42090-02 

-0.41830-02 

2 

-0.53680-07 

-0.39930-01 

0,38060-06 

-0.42111-02 

0.11980*01 

0.75660*01 

-0. 16430*06 

-0.16460*05 -0.4209D-02 

-0. 41830-02 

3 

0.28380-06 

-0.3993D-01 

0.5245D-0S 

-0-4210D-02 

0.23670*01 

0.72850*01 

-0.16440*06 

-0.16470*05 -0. 42090-02 

-0.4 1790-02 

4 

0. 37510-05 

-0. 39930-01 

0.2954E-04 

-‘O. 41900-02 

0.34780*01 

0.68250*01 

-0. 16510*06 

-0.16540*05 -0.41910-02 

-0.4152E-02 

5 

0.2048D-04 

-0.39930-01 

0.59580-04 

-0.40570-02 

0. 45020+01 

0.61970*01 

-0.16730*06 

-0.16580*05 -0.40460-02 

-0. 40570-02 

6 

0.36050-04 

-0.40050-01 

-0.5056E-03 

-0.36950-02 

0,54160*01 

0.54160*01 

-0. 16390*06 

-0.14530*05 -0.35110-02 

-0.42190-02 

7 

-0.51450-03 

-0.40980-01 

-0.63980-02 

-0.55430-02 

0.61960*01 

■ 0.45020*01 

-0.17800*06 

-0.31290*05 -0.58320-02 

-0.45330-02 

8 

0. 1689D-02 

-0. 19960-01 

0.61580-01 

-0.21060-02 

0.68440*01 

0.34850+01 

0.63580*05 

0.25840*05 -0.21070-03 

-0.19790-03 

9 

-0. 51450-03 

0. 10460-02 

-0.63990-02 

0.13330-02 

0.73240*01 

0.23800*01 

-0.32530*03 

-0.19140*04 0.16730-02 

0.39940-03 

10 

0. 3606D-04 

0. 11930-03 

-0. 50570-03 

-0.51630-03 

0.76050*01 

0. 12050*01 

0.30260*04 

0.13010*03 -0.69950-03 

0.34500-04 

11 

0.20490-04 

0.83260-06 

0.59580-04 

-0. 1539C-03 

0.77000*01 

-0.20490-04 

0.76360*03 

0.87810*02 -0.16310-03 

-0.12620-03 

12 

0. 37550-05 

-0.34160-05 

0.2955D-04 

-0.21000-04 

0.76050*01 

-0.12050*01 

0.91420*02 

0.17100*02 -0.17810-04 

-0.30560-04 

13 

0.27460-06 

-0.84090-06 

0.52510-05 

-0.34820-06 

0.73230*01 

-0.23790*01 

-0.12920*01 

0.14250*01 0.69280-06 

-0.34710-05 

14 

-0. 48250-07 

-0. 97310-07 

0. 35860-06 

0.55350-06 

0.68610*01 

-0.34960*01 

-0.30790*01 

-0.17800*00 0. 70550-06 

0.97590-07 

15 

-0.19850-07 

0. 22470-08 

-0. 73530-07 

0.14280-06 

0.62290*01 

-0.45260*01 

-0.69640*00 

-0.8572D-01 0.14750-06 

0.12850-06 

16 

-0.32790-08 

0.34870-08 

-0.28430-07 

0.17320-07 

0.54450*01 

-0.54450*01 

-0.72990-01 

-C. 15080-01 0,13850-07 

0.27740-07 

17 

-0. 18150-09 

0.7647D-G9 

-0.45630-08 

-0.18980-09 

0.45260*01 

-0.62290*01 

0. 36740-02 

-0.10030-02 -0.11630-08 

0. 27310-08 

18 

0. 5604D-10 

0.76970-10 

-0.22790-09 

-0.57050-09 

0.34960*01 

-0.68610*01 

0.3090D-02 

0.21740-03 ^0.69770-09 

-0.18870-09 

19 

0. 18900-10 

-0.47880-11 

0.83950-10 

-0.13040-09 

0.23790*01 

-0.73230*01 

0. 62370-03 

0.82100-04 -0.13130-09 

-0.12770-09 

20 

0.28740-11 

-0.35370-11 

0.26830-10 

-0.13310-10 

0. 12050*01 

-0.76050*01 

0.-5 04 20- 04 

0. 13710-04 -0-95590-11 

-0.24560-10 

21 

0.0 

-0. 13710-11 

0.0 

0. 12810-11 

0.95640-27 

-0.77000+01 


0. 30760-11 

-0.41050-11 


t:m**rn******** ******************* *********’******* *************** ******************************************************************** 


ORIGINAL PAGE IS 
OF POOR QUALITY 



aea 




CYCLE* 

10 


SLERCNf 

81 STA 

1 SO 

1 

*0.466346140*01 
*0. 466241890-01 

-0.46613764 0-01 
0.0 

2 

-0.465756S9D-01 

-0.465461580-01 

*0.465166570*01 

0.0 

3 

*0. 461197690-01 
-0.46202396D-01 

-0.46284822 D*01 
0.0 

4 

-0.454500410-01 

-0.4467214B0-01 

*0.438942550*01 

0.0 

5 

-0.375032990-01 
-0. 403935320-01 

-0.432637650*01 

0.0 

6 

-0.422096900-01 

-0.277591420-01 

*0.133083850*01 

0.0 

7 

0.225812550-01 

-0.344302580-01 

*0.91441771 0-01 
0.0 

8 

-0.39755521D-01 

*0.307179940*02 

0.336119220*01 

0.0 

9 

-0. 349015470-01 
-0. 130234370-01 

0.085467340*02 

0.0 

10 

*0.286120270'02 

*0.361263450*02 

*0.436406680*02 

0.0 

11 

0. 14071050 D-02 
-0.230090100*02 

-0.720890700*02 

0.0 

12 

*0.409881900*02 

-0.18729784C-02 

0.352662200*03 

0.0 

13 

0.27472065D-03 

*0.499322600*03 

-0.127336590*02 

0.0 

14 

*0.263903110*03 

-0.191229540*03 

-0. 985559750-04 
0.0 

15 

0.678235B1O-0S 

0.426995330*04 

0.766167080*04 

0.0 

16 

0.382661550*04 

0.21966026D-04 

0.566589680-05 

0.0 

17 

0.722216320*05 

0.974469990-05 

0.122672370-04 

0.0 

IB 

9.349740860*05 

0.42769282D-05 

0.505644790*05 

0.0 

19 

0.134180980*05 

0.12668873D-C3 

0.119196430*05 

0.0 

20 

0.3447141B0-06 

0.336986150*06 

0. 333258130-06 
0.0 


SI sra 
•>0.M71il2A43D-01 
*O.K7150980C-01 
-0.H7014S6ttD-01 
•0.4700S005C-&1 
*0.46373676 D-01 
*0.4631120470-01 
*0.440405020*01 
-0.441746C2C-01 
•*0.402046720*01 
*0.363027930*01 
*0.150998500*01 
*0.246364180*01 
0.148591030*01 
*0.240332280*01 
*0.511326270-01 
*0.149900570*01 
-0- 17362076 [}-01 
*0.607216820-02 
-0.628425970-03 
-0.359774480-02 
*0.168747550-02 
*0.264535360-02 
*0.171419950-02 
*0.120871620-02 
-0.263172930-0} 
-0.405943190*03 
0.327887110-04 
-0.24745475D-0S 
-0.984936710-05 
0.178784640-04 
0.240399630*04 
0.168903530-04 
0.764878270*05 
0. 825540270-05 
0.205 859620*05 
0.247973520*05 
0.709646300-06 
0.72315476C-06 
0.23418164 D-06 
0.237546220-06 


2 SO 

-U.47159117D-01 

0.0 

-0.46995446D-01 

0.0 

-0.463130ti»-01 

0.0 

*0.443080220*01 

0.0 

-0.324008940*01 

0.0 

-0.33372985D-!>01 

0.0 

*0.629256380*01 

0.0 

0.211525130-01 

0.0 

0.521773940*02 

0.0 

-0.656706370-02 

0.0 

-0.360323180-02 

0.0 

-0.703232770-03 

.0.0 

-0.528713440-03 

0.0 

-0.377378060-04 

0.0 

0.456062960-04 

0.0 

0.137567230-04 

0.0 

0.866202280-05 

0.0 

0.290067420*05 

0.0 

0.736663260-06 

0.0 

0.240910800*06 

0.0 


sx sn 3 
*0.465858920*01 
-0.465784620*01 
*0.463207220*01 
*0.462950560*01 
•0.455011500*01 
-0.453231740-01 
-0.403542530*01 
-0.413339190*01 
*0.449796190*01 
*0.343272160*01 
0.668700630-02 
*0.253422230*01 
•0.95308597 0*04 
*0.212445920*01 
-0.492889076-01 
*0.133873360*01 
*0.49493983 0*02 
*0.436118370*02 
0.186778110-02 
-0. 330204470-02 
-0.442126930*02 
-0.202220120*02 
0.312524910-03 
-0.90966424 D-03 
-0.63732977 D-03 
-0.103865630-03 
0.144936510-03 
-0. 23780831 D-04 
0.103173340-04 
0.30927I74C-04 
0.856308870-05 
0.145257310*04 
0.646205490-05 
0.470049240*05 
0.151679930*05 
0.160450770*05 
0.362576700-06 
0.472003840*06 
0. 173286660-06 
0.187039930*06 


SO 

-0.465710310-01 

0.0 

*0.462693910*01 

0.0 

*0.451451980*01 

0.0 

-0. 423135840-01 

0.0 

-0. 236748170-01 

0.0 

*0.373715330*01 

0.0 

*0.423936760*01 

0 . 0 . 

0.225142320*01 

0.0 

-0.377296920*02 

0.0 

-0.849187040-02 

0.0 

0.376866820-03 

0.0 

*0.213185340-02 

0.0 

0.429698100-03 

0.0 

-0.192498170*03 

0.0 

0,515370130*04 

0.0 

0.204883740*04 

0.0 

0.293892990*05 

0.0 

0. 169221620*05 

0,0 

0.58143C970-06 

0.0 

0.200793198-06 

0.0 


CTCIB> 
STRAIN AT 

10 

ADDITIONAL RCXITS 

SX 

SO 

EX 

SO 


1 

0.21954989D-06 

0.224696150*06 

0.229642420*06 

0.0 

0.219549860*06 

0.229642390*06 


J* 10 TIHF (see.) • 
V08K tlPDT 1810 RING 118.-18.) 
SIMG RI8E7IC INBRGf (X8.-18.) 
tI8C ELISTIC I8ERGY (18. -IB.) 
RING PtftSTIC 8CBR (X8.-18.) 


G.400000D-04 

• 0.306676C«06 

» O.222S40OfrO6 

• 0.579372C^04 

» 0«763343C>05 


1 ? 

1 0.0 

2 0.B171D-04 

3 0.36SSD-03 

4 0. 14750*02 

5 0.59360*02 

6 0.16010*01 

7 0.50R0O-01 

8 0w713lD-01 

9 0. 27290-01 

10 0.77130*02 

11 O.U562D-02 

12 0.23290-02 
iJ 0.31020*03 

14 -0.53500*05 

15 -0. 58940-04 

16 -0.39060*04 

17 -0. 13560-04 
1ft -0. 43820-05 

19 *0.12830-05 

20 -0.30570-06 

21 0.0 


8 

-0.3701D*00 
-0.370U400 
-0.37020^00 
-0.37010400 
-0.3710D400 
-0.3725D400 
*0.40040400 
-0.1827D400 
0.1327D-01 
0.14010-01 
-0.3772D-02 
0.13130-02 
-0.39470*03 
0. 12530-03 
-0.5319D-04 
*0.16910*05 
*0.89600*06 
*0.91400*06 
*0.14750-06 
-0.24560-07 
-0.16280-07 


PSX 

0.0 

-0.0125D-05 
-0.1265D-.03 
-0.36700-03 
0.332SD-03 
-0.23190-01 
0.29820*01 
0.26S7D400 
0. 46570-01 
-0.21510-01 
-0. 35500-02 
0.22310-02 
-0.81330-03 
-0. 79150-04 
0. 14340-03 
-0. 26110-04 
0.50770-05 
0.27O6D-0S 
0.11660-06 
0.22520-07 
0.0 


CHI 

*0.47400-01 
-0.47330-01 
*0.46990*01 
*0.45980*01 
-0.40250-01 
-0.41620-01 
-0. 59580-02 
-0.52130-01 
-0.29850-01 
-0.38070-02 
-0.18590-03 
-0.353BD-02 
0.7696D-05 
-0.35280*03 
0.37620-04 
0.3263D-04 
0.81830-05 
0. 45220-05 
0. 15320-OS 
0.3824C-C6 
0.17320-06 


CORY 

0.0 

0.11470401 

0.22650401 

0.33290401 

0.43130401 

0.51930401 

0.593SD401 

0.67300401 

0.73440401 

0.76200401 

0.76960401 

0.76060401 

0.73230401 

0.696*(0401 

0.62290401 

0.544S0401 

0.45260401 

0.3496D401 

0.23790401 

0.12050401 

0.11360-22 


CORY 

0.73300401 
0.72400401 
0.69710401 
0.65300401 
0.59260401 
0.51700401 
0.4249D401 
0.33490401 
0.23SBD401 
0. 11990401 
-0. 45620-02 
-0.1207D401 
-0.23000401 
-0.34960401 
-0.45260401 
-0.54450401 
-0.62290401 
-0.60610401 
-0.73230401 
-0.76050401 
-0.77000401 


L 

*0.26410406 
-0.2835040b 
-0.20110406 
*0.27320406 
*0.24790406 
*0. 18738406 
-0. 15410406 
-0.1 42B0406 
*0. 11350406 
-0.10190406 
-0.76750405 
-0. 350704 05 
-0.11780405 
-0.71800402 
0.51070403 
0.54830403 
0.23950403 
0.71950402 
0.20980402 
0.60920401 


8 

*0.28410405 
-0.28350405 
*0.28080405 
*0.27420405 
-0.23370405 
*0.26550405 
-0.3039D405 
0.41160402 
0. 17760404 
*0.15470405 
*0.95280404 
*0.25290404 
-0. 1415D404 
-0.75390402 
0.10550403 
0. 44890402 
0.2474D402 
O.0OO9D4O1 
0.21240401 
0.69570400 


smiifiR) 
*0.46280*01 
*0.46220*01 
-0.45860*01 
*0.45080*01 
*0. 36680*01 
*0.44710*01 
0.71520*02 
•0.18090*01 
*0.35920*01 
*0.32370*02 
0.12100*02 
*0.42920*02 
0.34410*03 
*0.45960*03 
0.56890*04 
0.32730-04 
0.66440-05 
0.47120*05 
0.15450*05 
0.36610*06 
0.16690-06 


REACTIONS At NODE 

BY (LBS) 

RH (LOS) 

RN (IN-LBS) 

1 

0. 27032CB«06 

0.0 

-0.284250D705 

21 

0. 5411030^01 

0.0 

-0.S94910D400 


SriftlM (OOT) 
-0.4626D-01 
*0.46190*01 
*0.45910*01 
-0.44440*01 
-0.41720-01 
-0.27820-01 
*0.43440*01 
-0.76700-02 
*0.55090*02 
*0.45640*02 
*0.43490*02 
*0.12400*02 
-0.1000C-02 
*0.32440*04 
*0.26160*04 
0.32320*04 
0.12800-04 
0. 39550-05 
0.14930-05 
0.43140-06 
0. 18590-06 


SOeSTRUCZRRB 

1 

INTfRfACB 


nSTR ZLE SURP 

0.4062670-01 8 2 

0.9014610*02 8 1 


STA 

1 

1 


TINE 

0. 1200000-04 
0.8000000*05 


SOeSTRUCTDRE 

1 

XITI8PACE 


UIGEST AOO. RT. STIAXI 
0.229842B-06 
0.2246960*06 


EII8 ADD. PT. 
20 1 

20 1 


TINE 

0.4000000-04 

0.40000QD-Q4 


8UIPACE 

2 

1 


SUBSTBUCTOEE 

1 


UE6EST lOOAt STBATM 
0.7151550*02 


MODI 

7 


SDRf TINE 

1 0..400000D-04 


262 


t9Z 


3 


ORIGINAL 
OF POOR 


PAGE IS 

quality 


CYCLE* 20 


ELYRBNT 

51 STA 

1 SO 

SI STA 

2 SO 

SI STA 3 

SO 

1 

-0.810604540-01 

-0.808954650-01 

-0.01 1875150-01! 

-0. 81005996 D-01 

-O.B0334731D-01 

-0.800842960-01 


-0.809B796CC-01 

0.0 

-0.610967560-01 

0.0 

-0.60209514D-01 

0.0 

2 

-0.79613157 D-01 

-0. 797159400-01 

-0.7R996136D-01 

-0.786630520-01 

-0.77091 1880-01 

-0.764424520-01 


-0.79764652D-01 

0.0 

-0.788296940-01 

0.0 

-0.767668200-01 

0.0 

3 

-0.763015270-01 

-0.741142930-01 

-0.732438370-01 

-0. 721683290-01 

-0.678975440-01 

-0.67787632C-01 


-0.752CR910C-01 

0.0 

-0.727060830-01 

0.0 

-0.676425880-01 

0.0 

6 

-0.626125570-01 

-0.695303080-01 

-0. 606439270-01 

-0.584181140-01 

-0.610111880-01 

-0.497546950-01 


-0.66071433C-C1 

0.0 

-0. 595310210-01 

0.0 

-0.553830410-01 

0.0 

5 

-0.619319170-01 

-0.400701320-01 

-0.507365830-01 

-0.313910330-01 

-0.559788370-01 

-0.22390256L-01 


-0.S1376025D-01 

0.0 

-0.450642080-01 

0.0 

-0.391845460-01 

0.0 

6 

-0.412697J0D-01 

-0.239467420-01 

-0.212836570-02 

-0.745038810-01 

0.294336350-01 

-0.133455260*00 


-0. 326082360-01 

0.0 

-0.363161240-01 

0.0 

-0.52010812D-01 

0.0 

7 

0.336952750-01 

-0. 128936280*00 

0.200677500-01 

-0.606563440-01 

-0,969110160-03 

-0.405482970-01 


-0. 476205010-01 

0.0 

-0.303942970-01 

0.0 

-0.207587040-01 

0.0 

B 

-0.447187510-01 

0.35183113D-01 

-0.704733130-01 

0.299176000-01 

-0.642319a0C-01 

0.373239270-01 


-0.476781870-02 

0.0 

-0.20277B57D-01 

0.0 

-0.214S4006D-01 

0.0 

9 

-0.717790010-01 

0. 246954570-01 

-0.408628460-01 

0.150082640-01 

-0.12514042 D-01 

0.257511230-02 


-0.235417720-01 

0.0 

-0. 129372910-01 

0.0 

-0.496946470-02 

0.0 

1 0 

-0.546193200-02 

-0,639571110-03 

-0.278231130-02 

-0.422243330-02 

0.854293220-04 

-0.759490710-02 


-0,305075150-02 

0.0 

-0. 350237230-02 

0.0 

-0.375U73B9D-02 

0.0 

11 

0.143643490-02 

-0. 973969860-02 

0.134872220-02 

-0. 903517000-02 

O.1464202BD-O2 

-0.816403270-02 


-n. 415161190-02 

0.0 

-0.384322390-02 

0.0 

-0.3349875U-02 

0.0 

12 

0.600673510-03 

-0.672527530-02 

-0.176729490-02 

-0.454462740-02 

-0.421966590-02 

-C.246315B1D-Q2 


-0.306230C9C-02 

0.0 

-0.315596120-02 

0.0 

-0. 334141200-02 

0.0 

13 

-0.52800685 0- 02 

-0. 126411060-02 

-0.513571790-02 

-0. 158537620-02 

-0.46970837 D-02 

-0. 1S835271D-02 


-0.327209950-02 

0.0 

-0,336054710-02 

0.0 

-0. 314030540-02 

0.0 

14 

-0. 357344820-02 

-0.314063660-02 

-0.228823360-02 

-0. 413203020-02 

-0. 133579630-02 

-0.54793196 D-02 


-0,335704240-02 

0.0 

-0.321013190-02 

0.0 

-0. 340755790-02 

0.0 

15 

-0, 198328520-02 

-0.406‘, 09370-02 

-0. 329780240-02 

-0.354735610-02 

-0.42576939D-02 

-0.22347263D-02 

• 

-0.323518950-02 

0.0 

-0.342257930-02 

0.0 

-0.324621010-02 

0.0 

16 

-0. 392955400-02 

-0. 287562420-02 

-0.287750220-02 

-0.319852740-02 

-0.20972479D-02 

-0. 370271180-02 


-0.3352S891D-02 

0.0 

-0.30380148D-02 

0.0 

-O.28999790C-O2 

0.0 

17 

-0. 220590360-02 

-0. 30016456 D-02 

-0.226431950-02 

-0.248591550-02 

-0. 217745740-02 

-0. 17754695D-02 


-0. 260377710-02 

0,0 

-0. 230511750-02 

0.0 

-0.197646350-02 

0.0 

18 

-0, 130096300-02 

-0.190666620-02 

-0. 135337000-02 

-0. 158104600-02 

-0. 102392930-02 

-0.138038Q8D-02 


-0, 135331460-02 

0.0 

-0.146720600-02 

0.0 

-0. 120215700-02 

0.0 

19 

-0. 959414400-03 

-0. 10445055D-02 

-0.780846230-03 

-0.820235710-03 

-0.603814190-03 

-0.60810834D-03 


-0, 100695990-02 

0.0 

-0.600540970-03 

0.0 

-0^805961270-03 

0.0 

20 

-0.491647290-03 

-0. 583451610-03 

-0.405517690-03 

-0.465406080-03 

-0.3B019815D-03 

-0.411 6754 3D-03 


-0.537S49M5D-03 

0.0 

-0,435501680-03 

0.0 

-0.395936790-03 

0.0 


CYCLE* 20 

STRXi:< AT ADDITIONAL POUTS 51 

1 '0.346aB2il7C-03 

•0.A2366812D-O3 


SO 

-0.45095377D'03 

0.0 


ex BO 

-0. 396461060-03 -0.4610SS49D-03 


J* 20 TIRE (SEC.I « 

HCRK INPUT INTO RING (IN.-LB.) 
RING KINETIC eNEBat (IN.-LB.) 
RlitG CLASTIC ENERGY (IM.-LB.) 
RING PLASTIC iICBK (II.-LB.) 


0.8000000-04 

s 0.30€676 d^ 06 
« 0.1700tSD«06 
« 0.60810SD«04 
> 0.130S81C406 


I 

1 

2 

3 

4 

5 

6 
7 
6 
9 

10 

II 
12 
13 
1U 

15 

16 

17 

18 

19 

20 
21 


V 

0.0 

0.2410D-02 
0.7954D-02 
0.2175D-01 
0.5069D-01 
0.9136D-01 
0.1782D400 
0.18980*00 
0.9476D-01 
0. ueaBD-^oi 
0. 3399D-01 
0. 30130-01 
0. 25930-01 
0.19090-01 
0. 1467D-01 
0. 10220-01 
0.6231D-02 
0.33300-02 
7. 15180-02 
0. 53610-03 
0.0 


H 

>0.66540*00 
•0. 66550*00 
>0.66600*00 
■0.66880*00 
■0.66620*00 
-0.?345D*00 
-0.74640*00 
-0.33040*00 
0.45150-01 
0.74300-01 
0.27000-01 
0.56340-02 
0.10830-01 
0.97260-02 
0. 31430-02 
0.33.380-02 
0.1C69C-02 
0.7130D-C3 
0. 19210-03 
0.78180-04 
0.29990-04 


PSX 

0.0 

>0.60970-03 
>0.16640-02 
-0.5061D-02 
■0.11700-01 
■0. 94390-01 
0.12510*00 
0.43060*00 
0.12650*00 
•0. 42330-01 
-0.37990-01 
-0.65630-02 
O.I640C-O2 
-0.89120-02 
-0.33170-02 
-V. 25780-02 
-0.16000-02 
-0.99790-03 
-0,30330-03 
-0.18410-03 
0.0 


CHI 

-0.84380-01 
-0.6330C-01 
-0.79290-01 
-0,68270-01 
-0.60C20-C1 
-0.5217C-01 
-0.11770-01 
-0, 11700*00 
-0.62820-01 
-0.55180-02 
-0.20640-02 
-0.85250-03 
-0.4242D-02 
-0.3809D-02 
-0.2307D-02 
-0.30320-02 
-0.23660-02 
-0.19750-02 
-0. 10480-02 
-0,55340-03 
-0.39060-03 


COPY 

0.0 

0.11030*01 

0.21610*01 

0.32110*01 

0.41750*01 

0.50040*01 

0,57300*01 

0.66530*01 

0.73950*01 

0.76860*01 

0.77270*01 

0.76060*01 

0.73250*01 

0.68610*01 

0.62230*01 

0.54400*01 

0.45220*01 

0.34930*01 

0.23700*01 

0.1204D*01 

-0.20920-19 


COPZ 

0.70350*01 

0.69470*01 

0.66870*01 

0.62550*01 

0.56610*01 

0.48750*01 

0.39430*01 

0.31770*01 

0.23030*01 

0.11700*01 

■0,33990-01 

•0.12350*01 

•0.24070*01 

•0.35170*01 

•0.45400*01 

•0.54540*01 

-0.u2340*01 

•0.68630*01 

•0.73240*01 

•0.76050*01 

-0.77000*01 

i 


L 

-0.29230*06 
-0.26690*06 
-0.27100*06 
-0.23140*06 
-0.20980*06 
-0.16900*06 
-0.13580*06 
-0,10920*06 
-0. 10100*06 
-0.9310D*05 
-0.66610*05 
-0.91320*05 
-0,95400*05 
-0.93140*05 
-0«9930D*05 
-0.88150*05 
-0.69200*05 
-0.42570*05 
-0.23230*05 
-0.12640*05 


n 

-0. 29220*05 
-0.28630*05 
-0.27230*05 
-0.2049D*05 
-0.16210*05 
-0.32970*05 
-0,29990*05 
0,74740*04 
0.73770*04 
-0.94340*04 
-0. 15560*05 
-0,11850*05 
-0,64980*04 
-0.11100*05 
-0,10170*05 
-0.91250*04 
-0,71150*04 
-0,44770*04 
-0.23610*04 
-0,13220*04 


STRAIN (IB) 
■>0.60840-01 
-0.79860-01 
-0. 76350-01 
-0.65320-01 
-0.60220-01 
-0.51280-01 
0.19260-01 
-0.20700-01 
-0.67600-01 
-0.52210-02 
-0.33400-04 
0,29870-03 
-0.46830-02 
-0.40170-02 
-0,18000-02 
-0.40720-02 
- 0 . 22000-02 
-0.20040-02 
-0.10180-02 
-0.54730-03 
-0.30750-03 


REACTIONS 

AT NODE 

89 (LBSI 


RN(LBS) 

BR(IN-LBS) 


1 

0.2682020*06 

0.0 

-0.2933580*05 


21 

-0.1140030*05 

0.0 

0.1153240*04 

SOBSTBIICTORE 

flSTB 

ELE SURE 

STA 

TIRE 


1 

0.4062870 

-01 B 2 

1 

0. 120000D- 

04 

ISTPSPACK 

0.9814610 

-02 6 1 

1 

0. 8000000-05 

SnfiSTRUCTORB 

lAPCBST 

ACD. PT. STRAIN 

ELBH 

ADD. PT. 

TIBR SUI 

1 


0.1040850-04 

20 

1 

0.6000000-04 

TITERPACe 


0. 1000700-04 

20 

1 

0.600000D-04 

SUBSTEUC70RB 

LARGEST 

HCDAL STRAIN 

NODE 

SURP 

ttRC 

1 


0.1926030-01 

7 

1 

0. 8090000-04 


STRAIN (OUT) 
-0.80740-01 
-0.7977C-01 
-0.75530-01 
-0. 67760-01 
-0.51930-01 
-0.31610-01 
-0.7325D-01 
-0. 76290-02 
-0. 85830-02 
-0. 27650-02 
-0,52600-02 
-0.42180-02 
-0.28760-02 
-0. 29970-02 
-0.37930-02 
-0-3069D-02 
-0.29370-02 
-0, 18770-02 
-0.11380-02 
-0.5713B-03 
-0.39940-03 
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CYCLE- 

BLRBBVT 

30 

SI STA 

1 SO 

51 STA 

2 50 

St STA 

3 50 

1 

-0.975556920-01 

-0. 96552079 D-01 

-0.97073742IH01 

-0.956B9131O-01 

-0.9S5148S50-01 

-0.936613530-01 


-0. 970538860-01 

0.0 

“0.963814370-01 

0.0 

-0,945881040-01 

0.0 

2 

-0.941J3282D-01 

-0. 923408990-01 

-0.90732847D-01 

-0.B836977SD-01 

-0. 854565710-01 

-0.823805300-01 


-0.93237091C-01 

0.0 

-0.895513110-01 

0.0 

-0.B3922S5U-01 

0.0 

3 

-0. S3809512D-01 

-0.039513270-01 

-C,76250I12D-01 

-0.769407260-01 . 

-0.69900004 0-01 

-0.680261400-01 


-0.8236CU20C-01 

0.0 

-0.765954200-01 

0.0 

-0.60964072 C-01 

0.0 

4 

-0. 666J6U680-01 

-0.649995510-01 

-0. 699673670-01 

-0.500544900-01 

-0.759610440-01 

-0.378964740-01 


-0.658190090-01 

0.0 

-0.600109260-01 

0.0 

-0.569297590-01 

0.0 

5 

-0. 734054760-01 

-0.323136980-01 

-0,609822910-01 

-0.250367660-01 

-0. 537067240-01 

-0.231069310-01 


-0.528595B7C-01 

0.0 

-0.430C9530D-01 

0.0 

-0.3840G827C-01 

0.0 

6 

-0.287912900-01 

-0.323736540-01 

0.24171667D-0r 

-0.10760661D«00 

0.678644100-01 

-0. 1936484U*00 


-0.305824720-01 

0.0 

-0.417174740-01 

0.0 

-0.629S1996C-01 

0.0 

7 

0.593218000-01 

-0.147533600100 

0.312645750^01 

-0.91063594D-01 

0.963776340-03 

-0.362517830-01 


-0, 441059000-01 

0.0 

-0. 298995090-01 

0.0 

-0. 176440030-01 

0.0 

8 

-0.452568240-01 

0.387988370-01 

-0.814768340-01 

0.448192950-01 

-0.106004230*00 

0.614681150-01 


-0. 322899370-02 

0.0 

-0.103287690-01 

0.0 

-0.23268C59D-01 

0.0 

9 

-0.997159170-01 

0. 534732100-01 

-0.565238300-01 

0. 327074930-01 

-0.16310429D-01 

0.941640820-02 


-0. 226213540-01 

0,0 

-0.119081680-01 

0.0 

-0.344701030-02 

0.0 

10 

-0. 726471360-02 

0.427476260-02 

-0.261446100-02 

0.171202840-03 

0. 131040640-02 

-0.464716180-02 


-0. 149496550-02 

0.0 

-0.122162910-02 

0.0 

-0.16683777 D-02 

0.0 

11 

0,305190870-02 

-0. 705932150-02 

0.434674430-02 

-0.801561710-02 

0.S7045721D-02 

-0.095567360-02 


-0.200370640-02 

0.0 

-0.163443640-02 

0.0 

-0.162555070-02 

0.0 

12 

0.5143^2650-02 

-0.724735010-02 

0. 340554080-02 

-0. 537066660-02 

0. 1520.47410-02 

-0.369054820-02 


-0. 1051711BO-02 

0.0 

-0.982562910-03 

0.0 

-0. 108503710-02 

0.0 

13 

0.442402850-03 

-0.266834750-02 

-0.762588760-03 

-0. 142562310-02 

-0.207097065-02 

-0.294844030-03 


-0. 1112972UC-02 

0.0 

-0.109420590-02 

0.0 

-0.11829073 D-02 

0.0 

14 

-0.271 16152C-02 

C. 370664070-03 

-0.300027870-02 

0.371762590-03 

-0. 328899020-02 

0.3d4668910-03 


-0. 117047560-02 

0.0 

-0.13142S81D-02 

0.0 

-0.145206070-02 

0.0 

15 

-0.287474640-02 

-0.145591130-03 

-0. 134037250-02 

-0.186728070-02 

0.169874150-03 

-0.359626250-02 


-0.151016880-02 

0.0 

-0.160782660-02 

0.0 

-0.171319420-02 

0.0 

16 

0. 521510040-03 

-0.435182350-02 

-0.656513490-03 

-0. 347039820-02 

-0. 210887160-02 

-0.288941810-02 


-0.191515670-02 

0.0 

-0. 206345590-02 

0.0 

-0.249914460-02 

0.0 

17 

-0.32U50642D-02 

-0.16706979D-02 

-0. 36368033 D-02 

-0. 225251670-02 

-0. 366332610-02 

-0.244409850-02 


-0.245788100-02 

0.0 

-(1.294466030-02 

0.0 

-0.305371230-02 

0.0 

18 

-0.304671360-02 

-0.386169920-02 

-0.283800600-02 

-0.435343530-02 

-0.279998300-02 

-0.500983710-02 


-0.346420 640-02 

0.0 

-0.3S957207D-02 

0.0 

-0.390491010-02 

0.0 

19 

-0.359832770-02 

-0.441468730-02 

-0,455735740-02 

-0.489S2437D-02 

-0.480434120-02 

-0.462654020-02 


-0.400650750-02 

0.0 

-0.472630060-02 

0.0 

-0.471544070-02 

0.0 

20 

-0.471441830-02 

-0.453244740-02 

-0.455935460-02 

-0.521751680-02 

-0.441729330-02 

-0. 591777510-02 


-0.462343290-02 

0.0 

-0.466843570-02 

0.0 

-0. 516753420-02 

0.0 

CYCLE- 

30 







STRAIN IT ADDITIONAL PCIHTS 


SI 

-0.N5345176D-02 

-o.N9a96ae'io*02 


-0.S3447S84D-02 

0.0 


-0.45448457D-02 


BO 

‘0«53S911S5D'02 


Js 30 Tini (SEC.) - 0.1200C0C* 
N?RR INPUT INTO PING (IH.'LB.) « 0. 
RING KINETIC ENSRGT (IB. -LB.) ■ 0< 
BING ELASTIC ENERGY (IV. -LB.) « 0. 
RISC PLASTIC UCBK (IV.-LB.J « 0. 


1 

2 

3 

4 

5 

6 

7 

8 
9 

10 

11 

12 

13 

14 

15 

16 
17 


1640D-01 

4230D-01 

8694D-01 

14450^00 

2180D«00 

3639D«00 

3412D«00 

1702D»00 

9589D-01 

6916D-01 

5952D-01 

5413D-01 

4744D-01 

3992D-01 

32S4D-01 

2762D-01 

2084D-01 

1467P-01 

7414D-02 

0 


-0.88630i00 
-O.8873D^00 
-0. 89200^00 
-0.8928C«00 
-0. 9082D^OO 
-0.1034D«01 
-0. 1065D»01 
-Q.4U620«00 
0. 1104D*00 
0. 1696D^00 
0.9680D-01 
0.4371D-01 
0. 3294D-01 
0.3772D-01 
0. 3462D-01 
0.2228D-01 
0.1940C-01 
0.U45D-C1 
0.1231D-01 
0.11440-01 
0. 1O16D-01 


PSI 

0.0 

-0.42610-02 
-0.1152D-01 
-0.9524D-02 
-0. 69630-01 
-0.1782D*00 
0. 22iec^oo 
0. 59120^00 
0.2085D«CC 
-0.6084D-01 
-0.6927D-01 
-0.31B5D-01 
-0. 52740-02 
-0.3262D-02 
-0.13470-01 
-0. ' 90D-01 
-0. 33700-02 
-0.7577D-02 
-0. 29820-02 
-0.19920-02 
0.0 


>03 

306676D*06 

,1S0824C«06 

.4399170404 

.1514530406 

CHI 

>0.10250400 
0.99300-01 
•0.66550-01 
•0.69530-01 
•0.7231 C-Ot 
•0.63240-0i 
•0.62380-02 
•0.21550400 
•0.9090C-01 
•0,71700-02 
0.2119D-02 
0.18C9E-02 
0.16890-03 
-O«10a2C-O2 
0.2528D-02 
0.6019D-03 
0.2665D-02 
0.334U-02 
0.34270-02 
•0.46770-02 
•0*48180-02 


COPY 

0.0 

0.10820401 
0.2144D401 
0.31660401 
0.41090401 
0.4866D401 
0.5582 D401 
0.6618D401 
0.74810401 
0.77880401 
0.77970401 
0.76390401 
0.73360401 
0.68730401 
0.62350401 
0.54370401 
0.45150401 
0.34850401 
0.23690401 

0.1199D401 

0.7087D-17 


COPE 

0.6814D401 

0.67260401 

0.6462D401 

0.60260401 

0.54100401 

0.4SS9D401 

0.36060401 

0.29890401 

0.22520401 

0.1136D401 

•0.69160-01 

•0.1269D401 

•0.24410401 

'0.35S5D4C1 

•0.45790401 

•0.5483D4C1 

•0.6261D401 

•0.6685C401 

•0.73390401 

■0.76180401 

•0.77100401 


-0.20120406 
-0.22560406 
-0.17160406 
-0.14100406 
-0.99160405 
-0.87930405 
-0.84590405 
-0.42300405 
-0.4066040S 
-0.26930405 
-0.23710405 
-0.25540405 
-0.29640405 
-0.38130405 
-0.46650405 
-0.59870405 
-0.85440405 
-0.10430406 
-0. 1264D406 
•0.13810406 


■0.1978D4QS 
•0.2126D405 
•0.1462D405 
•0. 41590404 
•0.261 1D404 
•0.3078D4CS 
•0.27420405 
0.16030405 
0.16950405 
0.12710404 
■0.10280405 
•0,10570405 
•0.39970404 
•0.55200403 
-0,51670404 
‘0,87080404 
•0.72050404 
'0.11900405 
-0.12650405 
'0.14010405 


STBAZV(IV) 
-0.97390-01 
-0.94590-01 
-0.82710-01 
-0.67000-01 
-0.72640-01 
-0.49270-01 
0. 51560-01; 
-0.21230-01 
-0.87070-0! 
-0.66200-02 
0.14050-02 
0,41170-02 
0.34540-03 
-0.22180-02 
-0,28990-02 
0.10580-03 
-0.27450-02 
-0.33400-02 
-0.32070-02 
-0.47120-02 
-0.45860-02 


HEACTIONS AT NOCB 
1 

21 


SUBSTPUCTURR 

1 

INTERPACB 

80B3TRUCT0BC 

1 

xvrrRPACF. 

SOBSTr.UCTURE 

1 


asTS 

0.6786440-01 

0.9814610-02 


ELI 

6 

B 


Rf (LBS) 

0. 19661211406 
-0. 1357470406 

SURF 
1 
1 


STA 

3 

1 


PV (LBS) 

0.0 

0.0 

TIRE 

0.1200000-03 

0.80C000O-0S 


Rn(IV-LB5) 
-0.2031650405 
0. 1384560405 


lABQBST 400. PT. STBAXI 
O.1O4O05C-O4 
0.1000700-04 


LARGEST 


VOCAL STBAXM 
0.5I5788C-01 


XLBB 

20 

20 

NODI 

7 


ADD. Pt. 
1 
1 

SUIP 

1 


TXBX 

0.6000000-04 

0.6000000-04 

tine 

0.1200000-03 


SOafACB 

2 

1 


5TIAIM(0DT) 
-0.96920-01 
-0.93670-01 
-0. 82840-01 
-0.6727C-01 
-0.5117C-01 
-0.33670-01 
-0.81230-01 
-0.63320-02 
0.10660-02 
-0.13120-02 
-0.30660-02 
-0.3060I)-02 
-0.16560-02 
-0.B466D-03 
-0.1C40C-02 
-0.24410-02 
-0.23850-02 
-0.3206C-02 
-0.40460-02 
-0.45220-02 
-0.54610-02 
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ORIGINAL PAGE IS 
OF POOR QUALITY 


-X- 


CrCLC* 40 


ILEREMT 

St STA 

1 SC 

St STA 

2 SO 

1 

-0,921359590-01 

-0.890693980-01 

-0.860026370-01 

0.0 

-0.907427960-01 

-0.887068590-01 

-0.866709230-01 

0.0 

2 

-0.4294494)0-01 

-0.836260750-01 

-O.B4307207D-01 

0.0 

-0. 813207190-01 
-0.804597950-01 

-0.705988710-01 

0.0 

3 

-0.76723S730-01 

-0.746796770-01 

-0.726354800-01 

0.0 

-(.750394170-01 

-0.702381100-01 

-0.654366190-01 

0.0 

4 

-0.69879207 0-01 
-0.«99£fi465D-01 

-0.500377640-01 

0.0 

-C.72608463D-01 

-0.550713870-01 

-0.375343110-01 

0.0 

5 

-0.70203085D-01 

-0.491057820-01 

-0.280034780-01 

0.0 

-0.548738140-01 
-0. 398246950-01 

-0.247755760-01 

0.0 

6 

-0.69324253D-02 
-0. 259215580-01 

-0. 449102920-01 
0.0 

0.523S1595D-01 

-0.374942880-01 

-0.127340170*00 

0.0 

7 

0.798015210-01 
-0. 381515370-01 

-0.156064590*00 

0.0 

0.424360990-01 

-0.274360820-01 

-0.97309863D-01 

0.0 

a 

-0.4381465SD-01 

-0.226962210-02 

0.392754100-01 

0.0 

-0.6593998CD-01 

-0,150746400-01 

0.551907000-01 

0.0 

9 

-0- 119520150*00 
-0. 188266300-01 

0. 818668930-01 
0.0 

-0.704723720-01 
-0. 101700350-01 

0. 501323030-01 
0.0 

10 

-0. 106240130-01 
-0. 111789050-02 

0.8388252SD-02 

0.0 

-0.512321860-02 

-0.379469640-03 

0.33642794D-02 

0.0 

11 

0.136414570-02 
-0. 169547570-02 

-0.475529710-02 

0.0 

0.352276170-02 

-0.169135590-02 

-0. 690547350-02 
0.6 

12 

0.637342170-02 
-0.8219058BO-03 • 

-0.601723350-02 

0.0 

0.562679480-02 

-0.810324220-03 

-0. 724744320-02 
0.0 

13 

0.400616700-02 
-0. 936837790-03 

-0.597984260-02 

0.0 

0,273475610-02 

-O.B120S709D-03 

-0.435887030-02 

0.0 

14 

0. 231805590-03 
-0.601271490-03 

-0.169434860-02 

0.0 

-0.101736520-02 

-0,642957100-03 

-0.26B54917D-03 

0.0 

15 

-0. 276740190-02 
-0.451148850-03 

0. 186510420-02 
0.0 

-0.213268150-02 

-0.315156260-03 

0.1S023690D-02 

0.0 

16 

-0. 693974730-03 
-0.5117981BC-04 

0.591615100-03 

0.0 

0.578554430-03 

0.158102570-03 

-0. 262349300-03 
0.0 

17 

0. 249066350-02 
0.380717310-03 

-0. 172922090-02 
0.0 

0.24741447D-02 

0.605817350-03 

-0. 126251000-02 
0.0 

IS 

0. 129114470-02 
0.815007930-03 

0.338B7113C-03 

0.0 

(•190001640-03 
0.72218188 C-03 

0.125436 190-02 
0.0 

19 

-0.262769810-03 

0.683577590-03 

0.1629925011-02 

0.0 

C.05O297O2D-O3 

0.659494140-03 

C. 469691260-03 
0.0 

20 

0.199690760-02 
0. 992B9B1U-03 

-0.111113680-04 

0.0 

0.129621870-02 

0.611953630-03 

0. 325686620-03 
0.0 


St STA 3 
*0.B61452«9D-'01 
-o.eso30«23s;>oi 
-0.766065140-01 
-0.76162471C-01 
-0.712852350-01 
-0.636519470-01 
-0.76453535D-01 
-0.513525660-01 
-0.43825832D-01 
-0.34840767D-01 
0.97U208740-01 
-0.644781730-01 
0.499503150-02 
-0.163187540-01 
-0.121533120»00 
-0.21313642D-01 
-0.209BB325D-01 
-0.1S927368D-02 
-0.48784714D-03 
-0.14B69750C-02 
0.602160210-02 
-0.13S04322D-02 
0.47753567D-02 
-0.93840260C-03 
0.137865340-02 
-0.790222870-03 
-0.23762029D-02 
-0. 613161360-03 
-0.142840450-02 
-0.101050290-03 
0.1B614999D-02 
0.37741205D-03 
0.22122861D-02 
0.S7140695D-03 
-0.6S976675D-03 
0.889176540-03 
0.204566460-02 
0.71941S360-03 
0.450143110-03 
0.47571506D-03 


SO 

-0.B391SS97D-O1 

0.0 

-0.7J716428D-01 

0.0 

-0. 560186590-01 

0.0 

-0.262516010-01 

0.0 

-0.258557030-01 

0.0 

-0.22677722D»00 

0.0 

-0.376325390-01 

0.0 

0.789058380-01 

0.0 

0. 178026510-01 

0.0 

-0.248610290-02 

0.0 

-0.872246640-02 

0.0 

-0.665216190-02 

0.0 

-0.29S90992D-02 

0.0 

0. 114988010-02 

0.0 

0. 12263039C-02 

0.0 

-0.110667410-02 

0.0 

-0.10694722D-02 

0.0 

0.243812380-02 

0.0 

-0.606833650-03 

0.0 

0. 501267010-03 

0.0 


CTCLE- 
STRAI8 AT 

40 

AQDITtOHAL POiHTS 

SI 

SO 


1 

0.115831640-02 

0.37167917D-03 



0.764997810-03 

0.0 


El 

0.115764640-02 


CO 

0.37161013D-03 


40 Tint (SEC.) « 0.160G00C-03 


MORE 

I4PUT IHTO RIMG 

(IN.-Le.) 

> 

0.3066760*06 

BIKiS 

RIHETIC 

ERERGT 

(III. -LB.) 

m 

0. 1456750*06 

RING 

ELASTIC 

ERERGT 

(IM.-LB.) 

m 

0.2054210*04 

RZKG 

PLASTIC 

HCRK 

(IB. -LB.) 

■ 

0.1507470*06 


I 

1 

2 

3 

4 

5 

6 

7 

8 
9 

10 

II 
12 

13 

14 

15 

16 
17 
16 

19 

20 
21 


f 

0.0 

0.52920-01 
0. 11740^00 
0. 1934D4>0D 
0i2795D*00 
0.3852D^00 
0. 5902D»00 
0. 51780»00 
0. 25420*00 
0.15330*00 
0. 10780*00 
0. 82310-01 
0.71000-C1 
0.61870-01 
0. 49850-01 
0. 36970-01 
0.27570-01 
0.2106D-01 
0.13390-01 
0.6336D-02 
0.0 


H 

•0.10530*01 
•Q. 10580*01 
>^0.10600*01 
>0.10710*01 
•0. 11430*01 
>0.13400*01 
•0.13420*01 
>0.55190*00 
0.16980*00 
0.27430*00 
0.18880*00 
0.10610*00 
0.67860-01 
0.6574D-01 
0.73600-01 
0.68450-01 
0.55500-01 
0. 51790-01 
0.S310D-01 
0.4856D-01 
0.46110-01 


PSt 

0.0 

•0. 12S0D-01 
•0.17770-01 
•0. 46930-01 
•0.15290*00 
•0.24390*00 
0.30210*00 
0.72390*00 
0.29600*00 
•0.67770-01 
-0.93470-01 
•0.61920-01 
>0.22940-01 
•0. 14630-02 
•0.37290-02 
•0. 14740-01 
'0.12190-01 
•0.86910-03 
0.41020-02 
0.2951C-02 
0.0 


CHX 

-0.9475C-01 
-0.67670-01 
-0.79490-01 
-0.69060-01 
-O.707OD-O1 
-0.7008C-01 
-0.84330-02 
-0.33650*00 
-0.12190*00 
-0.92410-02 
-0.48650-02 
0.96970-03 
0.14620-02 
0.42210-04 
-0. 17240-02 
-0.71740-03 
0.12890-02 
0.12940-02 
0.36040-04 
0.16000-02 
0.25070-03 


COPf 

0.0 

0.10910401 
0.21630*01 
0.31820*01 
0.40810*01 
0.47690*01 
0.54900*01 
0.66040*01 
0. 75630*01 
0.79000*01 
0.78890*01 
0.76970*01 
0.73660*01 
0.60910*01 
0.62600*01 
0.54670*01 
0.45360*01 
0.35000*01 
0.23630*01 
0.12060*01 
-0.33560-16 


COPZ 

0.66470*01 
0.65520*01 
0.62790*01 
0.58190*01 
0.51410*01 
0.42250*01 
0.32590*01 
0.27840*01 
0.21900*01 
0.10960*01 
-0. 10780*00 
-0.13020*01 
-0.24680*01 
-0.35810*01 
•0.46100*01 
-0.55190*01 
-0.62910*01 
-0.69160*01 
-0,73780*01 
-0.76540*01 
-0.77480*01 


I. 

0.53860*05 
0.38160*05 
0. 10840*05 
-0.76220*04 
-0.67520*04 
-0.12670*05 
-0.62110*05 
-0.13680*05 
-0.26410*05 
-0.17080*05 
-0. 19560*05 
-0.21660*05 
-0.21460*05 
-0.16650*05 
-0.91440*04 
0.45670*04 
0.17580*05 
0.20950*05 
0.27640*05 
0.27310*05 


N 

0.88530*04 
0.44960*04 
0.12900*05 
0.14540*05 
0.77450*03 
•0.24910*05 
•0.25950*05 
0.20530*05 
0.20490*05 
0.77550*00 
•0.79990*04 
•0. 1391D»05 
•0.93960*04 
•0.11410*04 
0.26010*04 
■0.35460*03 
•0.18560*04 
0.31250*04 
0.29340*04 
0.22220*04 


STBAZV (ZM| 
-0.9111D-01 
-0.83720-01 
-0.7570D-01 
-0.67600-01 
-0.7018D-01 
-0.38950-01 
0.76660-01 
-0. 21160-01 
-0.96330-01 
-0.9206D-02 
0.1347D-03 
0.48160-02 
0.30BUD-02 
0.44180-03 
-0.22950-02 
-0.8759D-03 
0.1B61D-02 
0.15890-02 
-0.3460D-03 
0. 1957D-02 
0.2074D-02 


STBAIB (OOT) 
-0.87720-01 
-0.63040-01 
-0. 74610-01 
-0.59510-01 
-0.45110-01 
-0.34670-01 
-0.81070-01 
-0.01000-02 
0.12330-01 
0. 12130-04 
-0.23430-02 
-0.28960-02 
-0.2347C-02 
-0. 1152C-02 
0.2061D-04 
0. 19330-03 
-0. 12720-03 
0.41560-03 
0.12160-02 
0. 55140-03 
0.38080-03 


.EBACTIORS AT HCDE 
1 

21 


py(LBS) RH(LBS| 

-0.5188000*05 0.0 

0.2781180*05 0.0 


9.1108620*05 

-0.4220720*04 


SOBStP.UCTUBE 

nSTB 

ELE 

soar 

STA 

TXBE 

1 

0.9782090-01 

6 

1 

3 

0.1600000-03 

lATLFPACE 

0.9814610-02 

0 

1 

1 

0.8000000-05 


SOBSTAUCTOai 

UIGESr 

ADO. Pt. StIAIi 

SLIM 

ADD. PT. 

Tint 

soaPACt 

1 


0.11SS32D-02 

20 

1 

0.1600000-03* 

1 

tITBBPACI 


0.7649900-03 

20 

1 

0.1600000-03 

1 

SQESTaOCTOlB 

UBCESr 

aODAL STBAII 

BODE 

snap 

TIRE 


1 


0.7660360-01 

7 

1 

0.1600000-03 
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CTCll> 50 


sLEflirr 

SI STA 

1 SO 

SI STA 

2 SO 

Sl STA 3 

SO 

1 

-0,832919910-01 

-0.879706370-01 

-0.058305770-01 

-0.857343440-01 

-0.84S902J70-01 

-0.794816920-01 


-0.856313140-01 

0.0 

-0.65782461D-01 

0.0 

-0.820359650-01 

0.0 

2 

-0. 930417050-01 

-0.774359640-01 

-0.62810621D-01 

-0.70S50330D-01 

-0. 811799490-01 

-0. 621413740-01 


-0.60233875D-C1 

0.0 

-0,766804750-01 

c.o 

-0.7166066U-01 

0.0 

3 

-0.7B506223D-01 

-0.601963260-01 

-0. 743353400-01 

-0.515660320-01 

-0.68595544 D-01 

-0.412406230-01 


-0o693512750-C1 

0.0 

-0.629S0666D-01 

0.0 

-0.S4918D83D-01 

0.0 

4 

^'0,66490656 0-01 

-0.355177740-01 

-0.66 1692850-01 

-0.314877680-01 

-0.67264975D-01 

-0. 289457970-01 


-0. 510042150-01 

0.0 

-0.488285270-01 

0.0 

-0. 48105366 G-01 

0.0 

5 

-0.615767130-01 

-0.309044270-01 

-0.449241920-01 

-0.287375300-01 

-0.297990280-01 

-0.278989150-01 


-0.46240570C-01 

0.0 

-0.368306610-01 

0.0 

-0.286489710-01 

0*0 

6 

0. 131572250-01 

-0.507996250-01 

0.71670883 C-01 

-0.131984300*00 

0.114602130*00 

-0.232949530*00 


-0.198213000-01 

0.0 

-0.301567070-01 

0.0 

-0. 591736990-01 

0.0 

7 

0.91399411D-01 

-0.155328350*00 

0.49453701D-01 

-0.101692520*00 

0. 124896070-01 

-0.422087410-01 


-0. 31964470C-01 

0.0 

-0. 261194120-01 

0.0 

-0.14859S67C-01 

0.0 

B 

-0.392590340-01 

0. 384522170-01 

-0.647095820-01 

0.530780280-01 

-0.122933200*00 

0.778452190-01 


0. 92091US9C-04 

0.0 

-0. 15015777 D-01 

0.0 

-0.225434930-01 

0.0 

9 

-0. 135124640*00 

0. 106699640*00 

-0. 050146530-01 

' 0.656367410-01 

-0.279034320-01 

0. 297581700-01 


-0, 141 12400D-01 

0.0 

-0.966895630-02 

0#0 

0.9273726Sl)-03 

0.0 

10 

-0. 150661620-01 

0.158979730-01 

-0. 721950900-02 

0.952554010-02 

-0.817873310-03 

0. 175624950-02 


0.41590572C-03 

0.0 

0.115301550-02 

0.0 

0.46910807 C-03 

0.0 

n 

0. 10966425D-02 

0.318412720-04 

0.361490760-02 

-0.20972-504D-02 

0.65016674 0-02 

-0.384301430-02 


0.559241600-03 

0.0 

0.758666680-03 

0.0 

0.132933660-02 

0.0 

12 

0. 76610386 0-02 

-0. -367919940-02 

O.9150O847D-O2 

-0.468076030-02 

0.1082426SD-01 

-0.555960670-02 


0. 199091960-02 

0.0 

0.223666220-02 

0.0 

0.263232900-02 

0.0 

13 

0. 104400S1D-01 

-O. 461166660-02 

0.659241390-02 

-0.351178020-02 

0.702939090-02 

-0, 217423530-02 


0.29141924.0-02 

O.Q 

0.254031690-02 

0.0 

0.242757780-02 

0.0 

1b 

0.697236530-02 

-0.125872510-02 

0.456002650-Q2 

C . 213170100-03 

0.30241787D-02 

0.159919530-02 


0.240682010-02 

0.0 

0. 239659930-02 

0.0 

0.231168700-02 

0.0 

15 

0.209117960-02 

0.266791950-02 

0,119241320-02 

0.36488676D-02 

0.268179620-03 

0.459125320-03 


0. 230954970-02 

0.0 

Q.24206404D-02 

0.0 

0.242971640-02 

0.0 

16 

0. 17407338 0-04 

0.499172620-02 

0.621297650-03 

0.43900728D-02 

0.139119270-02 

0.397687800-02 


0. 250456660-02 

0.0 

0.2505G652D-02 

0.0 

0.268403540-02 

0.0 

17 

0. 213801770-02 

0. 28341187 D-02 

0.377909990-02 

0.163S6643D-02 

O.S2896639C-02 

0.504395600-03 


0.256606820-02 

0.0 

0.270748210-02 

0.0 

0.289702980-02 

0.0 

18 

0. 545474090-02 

0.459203200-03 

0.44939716D-02 

0.133069000-02 

0.359151290-02 

0.224967910-02 


0. 29569720C-02 

0.0 

O.291233G0C-O2 

0.0 

0.292059600-02 

0.0 

19 

0. 305529900-02 

0.270871310-02 

0.264402160-02 

0.284427110-02 

0.254854750-02 

0.33123785D-02 


0. 20620060D<'02 

0.0 

0.274414630-02 

0.0 

0.293046300-02 

0.0 

20 

0.27936262D-02 

0.337192030-02 

0.339910820-02 

0.260070210-02 

0.365314000-02 

0. 165629290-02 


0. 307787330-02 

0.0 

0. 299990510-02 

0.0 

0.275471640-02 

'0.0 


CTCLB> 50 

STRUSI AT AOOITIOIIAL POUTS SI SO Bt tO 

1 0.3«900«92D-02 0.243977<l00<02 0.34839a0)D-02 0.24366050l>*02 

0.29649116D-02 0.0 


50 TIHK (sec.) » ' 0.200000C-03 

UCHK INPUT INTO BING (IS. •Lb.) • 0. 3C667eo<»06 

RING RIMB7IC ENBRGT (IS. >18.) ■ 0.13805e0>06 

SING ELASTIC ENEBGT (IS.-LB.) « 0. 306025C-»0N 

RING PLASTIC lOBR (ZN.-IB.) » 0.16S55e0«06 

If V PSI CHI COPT 

1 0.0 -0.12340»01 0.0 >0. 87090-01 0.0 

2 0. 85660-01 -0.1223D*01 -0.4904D-03 -0.85560-01 0.10960»01 

3 0.1770D^00 -0,12200*01 -0.3767D-01 -0.79020-01 0.21710*01 

4 0.28270*00 -0.12660*01 -0.10660*00 -0.67360-01 0.31720*01 

5 0.40250*00 -0.14040*01 -0.2114C*00 -0.63B2D-01 0.40260*01 

6 0.55020*00 -0.16270*01 -0.26050*00 -0.62C40-01 0.46640*01 

7 0.60970*00 -0.15730*01 0.35880*00 -0.15130-01 0.54330*01 

B 0.69660*00 -0.66020*00 0.81510*00 -0.44400*00 0.65890*01 

9 0.34070*00 0.20030*00 0.39680*00 -0.16320*00 0.76190*01 

10 0.21130*00 0.37440*00 -0. 57340-01 -0.10510-01 0.80080*01 

11 0.14660*00 0.29120*00 -0.10600*00 -0.54140-02 0.79910*01 

12 0. 10760*00 0.16720*00 -0.90760-01 0.43770-03 0.7773^0*01 

13 0. 68230-01 0.11590*00-0.46680-01 0. 56940-02 0.74060*01 

14 0.78520-01 0.94300-01 -0. 12240-01 0.440U-02 0.69090*01 

15 0.67520-01 0.10130*00 0.9665D-03 0.23760-02 0.62720*01 

16 0.53020-01 0.10900*00-0,64470-02 0.11740-02 0.54840*01 

17 0,36200-01 0.10050*00-0.17660-01 0.2056C-02 0.45540*01 

16 0.27420-01 0.65620-01 -0.11360-01 0.43120-02 0.35100*01 

19 0.18770-01 0.82920-01 -0.10050-02 0.31060-02 0.23870*01 

20 0.90650-02 0.62990-01 -0.2424C-02 0.28000-02 0.12090*01 

21 0.0 0.61130-01 0.0 0.33130-02 -0.56600-16 


COPE 

L 

n 

STRAIN (II) 

STIAIS (OOT) 

0.64660*01 

0.91570*05 

0.94610*04 

-0.82550-01 

-0.85560-01 

0.63840*01 

0.89690*05 

0.13640*05 

-0.82550-01 

-0.79970-01 

0.61080*01 

0.85490*05 

0.17660*05 

-0. 77570-01 

-0.68050-01 

0.56020*01 

0.79510*05 

0.12370*05 

-0.63090-01 

-0.48440-01 

0.46570*01 

0.58470*05 

-0.27440*04 

-0.6260D-01 

-0.440JC-01 

0.39050*01 

0.56630*05 

-0.13560*05 

-0.24530-01 

-0.31110-01 

0.29460*01 

-0.39390*05 

-0,27570*05 

0.90890-01 

-0,75260-01 

0.2S75D*C1 

-0.25920*05 

0. 14610*05 

-0.15310-01 

-0. 70960-02 

0.21170*01 

-0.89350*04 

0.22980*05 

-0.10160*00 

0. 20310-01 

0.10540*01 

0.26660*05 

0.17050*05 

-0.12900-01 

0.34540-02 

-0.14860*00 

0.51530*05 

0.36710*04 

0. 51060-03 

0.20190-03 

-0.13400*01 

0.644&O«-05 

-0.35660*04 

0.59510-02 

0. 37350-03 

-0.24490*01 

0.67750*05 

-0.39040*04 

0.91710-02 

0.90840-03 

-0.36090*01 

0.69540*05 

0.2730D*Ob 

0.55210-02 

0. 13790-02 

-0.46400*01 

0.70230*05 

0.93990*04 

0.2412D-02 

0.22830-02 

-0.55590*01 

0.72700*05 

0.10920*05 

0.55820-03 

0.31070-02 

-0,63330*01 

0.78560*05 

0.57630*04 

0.19990-02 

9.28760-02 

-0.69500*01 

0.84500*05 

0.53910*04 

0.50790-02 

0.23070-02 

-0.74080*01 

0.88330*05 

0.95450*04 

0.31970-02 

0.28680-02 

-0.76890*01 

0.90790*05 

0.67390*04 

0.26870-02 

0.31670-02 

-0.7781D*C1 



0.364S0-02 

0.23420-02 


REACTIORS AT MODE BT(LBS) RS (LBS) SH(II-LBS) 

1 -0.7971490*05 0.0 0.5670830*04 

21 0.9167140*05 0.0 -0.8703500*04 


SOBSTB8CIOIB BSTS ILB SUBP STA • TIBC 

1 0.1146020*00 613 0.200000D-03 

INTPSPACB 0.9814610-02 811 O.BOOOOOO-OS 
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owGmAt: 

OF POOR 


PAGE IS 
quality 


CTCLEs 1140 


ELEneNT 

SI STA 

1 SO 

8Z STA 

2 • SO 

St STA 3 

SO 

1 

-0.128109220*80 

-0.408861950-01 

-0.119219940*00 

-0. 503131770-01. 

-0. 105483000*00 

-0.545S43YSD-O1 


-0.844977050-01 

0.0 

-0,647665590-01 

0.0 

-0.800236570-01 

0.0 

2 

*^0.955307950-01 

-0.695433250-01 

-0.924077270-01 

-0.66199999D-01 

-0.875836120-01 

-0.60999248C-01 


-0.82537060I)-01 

0.0 

-0.79303863D-01 

0.0 

-0. 742939300-01 

0.0 

3 

-0. 833274930-01 

-0.60415A550-01 

-0.735499100-01 

-0.589934050-01 

. -0.602546100-01 

-0.53S99283D-01 


-0.71871474C-C1 

0.0 

-0.662716580-01 

0.0 

-0. 56926946 C-01 

0.0 

4 

-0.434186380-01 

-0.569276030-OJ 

-0. 343347640-01 

-^627691690-01 

-0.184943040-01 

-0,676020220-01 


-0.531731210-01 

0.0 

-0. 40561976 0-01 

(^0 

-0. 430481630-01 

0.0 

5 

-0. 107072600-01 

-0.685355500-01 

-0,471986560-02 

-0.62951663D-01 

0. 178954690-02 

-0.S7293454C-01 


-0.39621405D-01 

0.0 

-0.33835774D-01 

0.0 

-0.277519530-01 

0.0 

6 

0.34511952D-01 

-0.695022150-01 

0.73218961D-01 

-0.135267970*00 

0.965374650-01 

-0.222S41B8C*00 


-0. 174951310-01 

0.0 

-0.310245060-01 

0.0 

-0. 63002195 D-01 

0.0 

7 

0. 10082762o*U0 

-0.169128060*00 

0.457700850-01 

-0.898591980-01 

-0. 10837998 D-01 

0. 14466533D-02 


-0.445502190-01 

0.0 

-0.220445570-01 

0.0 

-0.46956726 D-02 

0.0 

8 

-O.45396409D-O3 

-0.921845070-02 

-0.603045220-01 

0.93965761D-02 

-0.102220750*00 

0.52675970D-01 


-0.4336211BD-02 

0.0 

-0.254539730-01 

0.0 

-0.24772380 D-01 

0.0 

9 

-0. 121406670*00 

0.120586540*00 

-0.925342510-01 

0.738407070-01 

-0.42740408 D-01 

0.43529141C-01 


-0.U100613UD-03 

0.0 

-0.934677210-02 

0.0 

0.394366760-03 

0.0 

10 

-0,391172560-01 

0.401432790-01 

-0. 380981520-01 

0.360724460-01 

-0.36B46733D-01 

0.32060454 D-01 


0.5130 11530-03 

0.0 

-0.101285310-02 

0.0 

-0.23931399 D-02 

0.0 

11 

-0, 413472960-01 

0.436140990-01 

-0.31 8048600-01 

0. 286174040-01 

-0.193392620-01 

0.167652BSD-01 


0. 113340180-02 

0.0 

-0.159373790-02 

0.0 

-0.128698630-02 

OvO 

12 

-0. 149503090-01 

0.137R071BO-01 

-0.969157530-02 

0.892988300-02 

-0.37466SS3D-02 

0.49621693D-02 


-0. 584795720-03 

0.0 

-0.380846150-03 

0.0 

0. 607755530-03 

0.0 

13 

-0. 1 10853830-02 

0.305015300-02 

0.467244690-03 

0.410683660-03 

0.126392420-02 

*>0.299262960-02 


0. 970807360-03 

0.0 

0.430964100-03 

0.0 

-0.864352740-03 

0.0 

14 

0.206589920-02 

-0.370864070-02 

0.518666410-02 

-0.482920250-02 

O.B6903U33D-02 

-0.554059850-02 


-0.821370720-03 

0.0 

0. 17B790BOD-03 

0.0 

0.15748724 D-02 

0.0 

15 

0. 1016T123D-01 

-0.605509180-02 

0.100429310-01 

-0.777664970-02 

0.99999110C-02 

-0.87C08306C-02 


0. 165301560-02 

0.0 

0.113314060-02 

0.0 

0.649S4021D-03 

0.0 

16 

0. 97J549940-02 

-0. 942504290-02 

0. 965843950-02 

-0.112769200-01 

0. 107515320-01 

-0.11998136 D-01 


0. 15S22828D-C3 

0.0 

-0. 80924027 0-03 

0.0 

-0. 623301590-03 

0.0 

17 

0. 11177458 0-01 

-0.129998880-01 

0.927851030-02 

-0, 108030340-01 

0.75511462 C-02 

-0.BS34975SD-02 


-0.911214760-03 

0.0 

-0.762261970-03 

0.0 

-0. 491913640-03 

0.0 

19 

0.587B7691D-02 

-0.643320900-02* 

0.355924680-02 

-0.415992230-02 

0.14720277 D-02 

-0. 166B7344D-02 


-0.277219970-03 

0.0 

-0.300337750-03 

0.0 

-0.983533190-04 

0.0 

19 

0.394966240-03 

-0.981158500-03 

-0. 165964080-02 

0.9979025BO-03 

-0.373773220-02 

0.29702744D-02 


-0.293096130-03 

0.0 

-0.33096911D-03 

0.0 

-0.363728900-03 

0.0 

20 

-0.458448760-02 

0.363723010-02 

-0. 503002740-02 

0.31713611D-02 

-0.552677520-02 

0.26779461D-02 


-0.4736 28740-03 

0.0 

-0.92933313D-03 

0.0 

-0. 142441460-02 

0.0 


CtCLE> 140 

STRAll AT ADDITIONAL POINTS 

5t 

SO 

1 

-0.51160675D-02 

0.30B41715D-02 


-0.10159480B-C2 

0.0 


ex 

-0.51292220D-02 


eo 

0«3079«30ID*02 


J« 1«0 TIKE (SeCO * 0.560000D-03 


H09R 

INPUT INTO RING 

(IN.-LB.) 

a 

0. 3066760*06 

BING 

BIN STIC 

EHEBGI 

(IM.-LB.) 

a 

0.119210C*06 

BISG 

ELASTIC 

EIEBGT 

(IH.-LB.) 

a 

0.3901730*04 

RING 

PLASTIC 

HOBR 

(li.-lB.i 

m 

0.1835650*06 


I 

1 

2 

3 

(i 

5 

6 
7 
e 

9 

10 

II 
12 
13 
in 
15 
1£ 
17 
ie 

19 

20 
21 


f 

O.D 

0.3136D»0Q 
Q.6n61D^0a 
0.1013D«01 
0. 14590«0t 
O.ISSUD^OI 
0. 248UD«01 
3.21100*01 
0. 11780*01 
0.91310*00 
0.75740*00 
0.59230*00 
0.43630*00 
0.30720*00 
0.21440*00 
0.16010*00 
0.1 3030*00 
0. 11050*00 
0.83710-01 
0.4S59D-ff1 
0.0 


V 

-0.28480*01 

-0.29640*01 

-0.31890*01 

-0.34410*01 

-0.36140*01 

-0.35370*01 

-0.29680*01 

-0.15340*01 

-0.‘16590*00 

0.55450*00 

0.86610*00 

0.89110*00 

0.75720*00 

0.57130*00 

0.38620*00 

0.24330*00 

0.16410*00 

0.16100*00 

0.20560*00 

0.25400*00 

0.27260*00 


PSI 

0.0 

-0.20860*00 

-0.28800*00 

-0.33240*00 

-0.24660*00 

-0.70160-01 

0.56540*00 

0.96020*00 

0.76380*00 

0.26450*00 

0.40370-01 

-0.14250*00 

-0.19900*00 

-0.19880*00 

-0.16660*00 

-0.11460*00 

-0.51290-01 

-.95160-02 

0.32870-01 

0.24820-01 

0.0 


CHI 

-0.11230*00 
-0.11840*00 
-0.12900*00 
-0.11660*00 
-0.58920-01 
-0.13630-01 
-0.13620*00 
-0.11890*01 
-0.42840*00 
-0. 55490-01 
-0. 20830-01 
-0.18730-01 
-0. 20410-01 
-0. 19940-01 
-0.82480-02 
-0. 12960-02 
0. 41860-02 
0.3207 D-02 
-0. 14970-03 
-0.27180-02 
-0.36350-02 


COPI 

0.0 

0.10510*01 
0.20090*01 
0.28370*01 
0.35820*01 
0.43460*01 
0.52880*01 
0.64520*01 
0.75290*01 
0,82960*01 
0.65660*01 
0.83930*01 
0.79080*01 
0.72300*01 
0.64160*01 
0.55040*01 
0.45170*01 
0.34700*01 
0.23630*01 
0.11990*01 
•0. 19020-15 


C0P2 

0.48520*01 
0.46290*01 
0.40910*01 
0.33350*01 
0.24480*01 
0.15410*01 
0.77190*00 
0.91950*00 
0. 12070*01 
0.38940*00 
-0.75740*00 
-0.19290*01 
-0.30280*01 
-0.40290*01 
-0.49260*01 
-0.57300*01 
-0.64390*01 
-0.70540*01 
-0.75450*01 
-0.78630*01 
-0,79730*01 


. I 

-0.17800*05 
-0.95090*04 
-0.13640*05 
-0.53760*04 
-0.53360*04 
0.59540*05 
0.7480D*C5 
-0.31500*06 
-0.77850*05 
-0.12640*05 
-0.80170*04 
-0.14300*04 
0.49790*03 
0. 13120*04 
0.13420*04 
-0.47000*03 
0.13420*04 
-0.77610*03 
-0.89540*03 
-0.40750*04 


H 

0.12620*05 
0.85040*04 
-0.69970*04 
-0.16090*05 
-C. 18020*05 
-0.49900*04 
0.63080*04 
-0.30140*05 
0.13090*05 
0.18690*05 
0. 16580*05 
0.13230*05 
0. 89590*04 
0.22320*04 
-0.68900*04 
-0. 13820*05 
-0. 13520*05 
-0. 81700*04 
0.29990*04 
0.90260*04 


StfiiXI (III 
-0.11760*00 
-0.94120-01 
-0.82440-01 
-0.54740-01 
-0.19720-01 
-0.26890-02 
0.75900-01 
-0. 32570-02 
-0.72700-01 
-0.27900-01 
-0.29770-01 
•0. 12200-01 
-0.11090-02 
0. 65250-03 
0.801 10-02 
0.76260-02 
0.8S52D-02 
0. 50450-02 
0.66290-03 
-0.34140-02 
-0.46540-02 


STRAIV(OOT) 
-0.71270-01 
-0.76190-01 
-0.6940C-01 
-0.53970-01 
-0.4794C-01 
-0.36230-01 
-0. 95930-01 
0.27270-02 
0. 38330-01 
0.78110-02 
0.10100-01 
0.29970-02 
0.17030-02 
-0.16500-02 
-0.S169D-04 
-0. 17790-02 
-0.36160-02 
-0.21030-02 
-0. 42660-03 
0.61620-03 
-0.54930-03 


BEACrZORS AT HOOC 

BT (IBS) 

BN (LBS) 

BH(IM-LBS) 

1 

0.1665110*05 

0.0 ^ 

0.1412550*05 

21 

-0,3891450*04 

0.0 

-0.1019300*05 


SnoSTBOCTURB 

fiSIB 

ELE SOBP 

. STA 

TIRE 


1 

0.1205870*00 9 2 

1 

0.5600000-03 


IITEBPACE 

0.9614610 

-02 e 1 

1 

0.8000000-05 


SODSTSOCTUBE 

LARGEST 

ADD. PT. STBAZI 

EIBH 

ADO. PT. TIRE 

SDRPACZ 

1 


0.480302S-02 

20 

1 0.3140000-03 

1 

ZNTBRRACB 


0.2964910-02 

20 

1 0. 2000000-03 

1 

SUBSTRUCTOBE 

UBGESr 

NODAL STBAII 

lODB 

SORT TIRE 


1 


0.9850560-01 

7 

1 0.5S6000D-OS 



267 




CTCLP- 150 


ELCNENT 

- SI STA 

1 SC 

SI StA 

2 SO 

St STA 3 

SO 

1 

-0,131027060*00 

-0.387070430-01 

-0.120756930*00 

-0.465986960-01 

-0.106107270*00 

-0.538118070-01 


-0.84667CS4C-C1 

0.0 

-0.846778150-01 

0.0 

-0.799595400-01 

0.0 

2 

-0. “54899790-01 

-0.70091899C-01 

-0.91602721D-01 

-0.669430630-01 

-0.663934260-01 

-0.623162000-01 


-0.827906890-01 

0.0 

-0.792733020-01 

0.0 

-0.743546140-01 

0.0 

3 

-0.823612020-01 

-0.612541370-01 

-0. 724442460-01 

-0. 599934000-01 

-0.587300050-01 

-0.544603540-01 


-0.7180767CC-01 

0.0 

-0.662188630-01 

0.0 

-0.565951800-01 

0.0 

4 

-0.484734170-01 

-O.56025O3OO-O1 

-0.342649720-01 

-0.630754270-01 

-0.185165720-01 

-0.67464132D-01 


-0. 526492240-01 

0.0 

-0.406701990-01 

0.0 

-0.429903520-01 

0.0 

5 

-0. 10394 1090-01 

^0,695638020-01 

-0.468367860-02 

-0.641967750-01 

0.217755490-02 

-0.581091730-01 


-0. 399739560-01 

0.0 

-0.344402270-01 

0.0 

-0.279658090-01 

0.0 

6 

0.34911294D-01 

-0. 698412670-01 

0.732779540-01 

-0.135094240*00 

0.969969540-01 

-0.222765530*00 


-0.174640960-01 

0.0 

-0.313061440-01 

0.0 

-0.626842860-01 

0.0 

7 

0.101843560*00 

-0.197164940*00 

0.420157060-01 

-0.860950460-01 

-0.180094950-01 

0. 191496600-01 


-0.476606930-01 

0.0 

-0.220396710-01 

0.0 

0.570162640*03 

0.0 

8 

0. 10126006 0-01 

-0. 174039240-01 

-C. 490847040-01 

0.564536460-02 

-0.983895280-01 

0.467041630-01 


-0.363895800-02 

0.0 

-0.217196600-01 

0.0 

-0.256426020-01 

0.0 

9 

-0. *21910130*00 

O.12390816C*0C 

-0.933763770-01 

0.742716670-01 

-0.417664350-01 

0.427439340-01 


0.97902672D-C3 

0.0 

-0.955225500-02 

0.0 

0. 487749640-03 

0.0 

10 

-0.397227990-01 

0.398963080-01 

-0.376066780-01 

0.3S6S2999D-01 

-0.363002740-01 

0.316124430-01 


0.507754940-03 

0.0 

-0.676639560-03 

0.0 

•0,224.19154 0-02 

0,0 

11 

-0.412169660-01 

0.44S37314D-01 

-0,328186170-0! 

0.308102980-01 

-0.220394340-01 

0.195940350-01 


0. 166022390-02 

0.0 

-0.100415940-02 

0.0 

-0.122269950-02 

0.0 

12 

-0. 1R559027D-01 

0.185002370-01 

-0.127879470-01 

0.134901630-01 

-0.665411020-02 

0. 892432500-02 


-0.793950240-04 

0.0 

0.351108050-03 

0.0 

0. 11351078C-02 

0.0 

13 

-0.349366860-02 

0. 571707270-02 

-0.886676220-03 

0.26416110D-02 

0.908708330-03 

-0. 119656250-02 


0.111170210-02 

0.0 

0,877467400-03 

0,0 

-0. 143927070-03 

0.0 

14 

0.219544040-02 

-0.249326650-02 

0.558988890*02 

-0.387339250-02 

0.945822360-02 

-0. 473345750-02 


-0. 14P91301D-03 

0.0 

0.856248210-03 

0.0 

0.236238300-02 

0.0 

15 

0.11068Q2'40-01 

-0,602468520-02 

0.100975310-01 

-0.668393480-02 

0. 107343340-01 

-0.74177704C-02 


0.252166920-02 

0.0 

0.210679810-02 

0.0 

0. 165820160-02 

0.0 

16 

0.111840400-01 

-O.03589069C-O2 

0.131201370-01 

-0.107384370-01 

0,159657720-01 

-0.122656040-01 


0.141252630-02 

0.0 

0.119064960-02 

0.0 

0.1BS00841D-02 

0.0 

17 

0.165468490-01 

-0. 133980630-01 

0.131346760-01 

-0. 101038740-01 

0.954979510-02 

-0.712675S0C-02 


0.157439270-02 

0.0 

0. 151540120-02 

0.0 

0.121152010-02 

0.0 

18 

0.690297280-02 

-0.438511670-02 

0,426847770-02 

-0.205607880-02 

0. 196356 59IH02 

0.599865370-03 


0. 1256928CD-02 

0.0 

0. 110619950-02 

0.0 

0.128171560-02 

0.0 

19 

0.116304190-02 

0. 903065160-03 

-0.204053860-03 

0.230541870-02 • 

-0.161626210-02 

0.36666S71E-02 


0. 103155350^02 

0.0 

0.105068240-02 

0.0 

0, 10251975D-02 

0.0 

20 

-0.237211320-02 

0.43S77624D-02 

-0.293639260-02 

0.42673224D-02 

-0.341262390-02 

0.429753440-02 


0.992824620-03 

0.0 

0.664464600-03 

0.0 

0.442455260-03 

0.0 


CTCLEa 150 

STS&ZI ftT IDDITZOikl FOZITS SI 

1 '0.3030J5H9C-02 

0.617030230-03 


SO 

0.«264M1S3D-02 

0.0 


er EO 

-0.303496040-02 0.425536 130-02 


j- 150 Tine (sec.) « o. 
■CRK ZiPDT IMTO RIHC <ZM.-LB») 
SING KINETIC EMESGT (IS. -16.) 
PING ELASTIC EllBRCl (1M.-L6.) 
BING PUSTIC SORR (IN.-LB.) 


6000000-03 

* 0.3066760t06 

- 0.117S740f06 

« 0.4072690*04 

• 0.1650300*06 


I 

T 

tf 

PSI 

1 

0.0 

-0.30640*01 

0.0 

2 

0. 34540*00 

-0.31850*01 

-0.21640*00 

3 

0.71070*00 

-0.34120*01 

-0.29310*00 

4 

0.11130*01 

-0.36540*01 

-0.33120*00 

5 

0.15910*01 

-0.36070*01 

-0.24430*00 

6 

0.21440*01 

-0.37010*01 

-0.64020-01 

7 

0.26660*01 

-0.30960*0 

0.57360*00 

8 

0.22640*01 

-0.16250*01 

0.96580*00 

9 

0. 12630*01 

-0.22590*00 

0.79350*00 

10 

0.99300*00 

0.53790*00 

0.29070*00 

1 1 

0.82130*00 

0.89290*00 

0.60730-01 

12 

0.64980*00 

0.95780*00 

-0.12380*00 

13 

0.48130*00 

0.84010*00 

-0.20340*00 

14 

0.33620*00 

0.64700*00 

-0.214 10*00 

15 

0.22950*00 

0.44540*00 

-0. 18550*00 

16 

0.16530*00 

0.28330*00 

-0.13230*00 

17 

0.13230*00 

0.18660*00 

-0.60110-01 

18 

0.11270*00 

0^18100*00 

0.10280-01 

19 

0.94150-01 

0.22450*00 

0.29410-01 

20 

0. 45310-01 

0.26790*00 

0.21810-01 

21 

0.0 

0.28510*00 

0.0 


CHI 

-0.11440*00 
-0. 12120*00 
-0.13010*00 
-0.11490*00 
-0. 56150-01 
-0. 12690-01 
-0.1406 0*00 
-0.12590*01 
-0.46500*00 
-0.62990-01 
-0.22060-01 
-0,17970-01 
-0. 22670-01 
-0.22780-01 
-0.10400-01 
-0.26410-02 
0. 76600-02 
0.45610-02 
0.87580-03 
-0.77610-03 
-0.15720-02 


COPT 

0.0 

0.10470*01 
0.20010*01 
0.28260*01 
0.35750*01 
0.43440*01 
0.52920*01 
0.64410*01 
0.74980*01 
0.82900*01 
0.85930*01 
0.64500*01 
0.79730*01 
0.72850*01 
0.64550*01 
0.55280*01 
0.45290*01 
0.34770*01 
0.23690*01 
0.12020*01 
-0. 19890-15 


COPZ 

0.46360*01 

0.44050*01 

0.38580*01 

o.3tooo*o: 

0.22140*01 
0.13110*01 
0.54900*00 
0.74050*00 
0. n09D*01 
0.31760*00 
-0.82130*00 
-0.19960*01 
^0.30970*01 
-0.40890*01 
-0.49730*01 
-0.57620*01 
-0.64560*01 
-0.70730*01 
-0.75630*01 
-0.78770*01 
-0.79850*01 


L 

-0.12850*05 
-0.61250*04 
-0. 12110*05 
-0.64280*04 
-0.79670*04 
0.51310*05 
0.91680*05 
-0.31320*06 
-0,80490*05 
-0.66900*04 
-0.160GD*04 
0.25680*04 
0.55990*04 
0.21030*05 
0.29590*05 
0. 33970*05 
0.40900*05 
0.37620*05 
0.39190*05 
0.37180*05 


0 

0.14060*05 
0.71120*04 
-o;daeoo*o4 
-0.15870*05 
-0.17490*05 
-0.64760*04 
0.91690*04 
-0. 30540*05 
0.13580*05 
0.18390*05 
C. 16080*05 
0. 15970*05 
0.10130*05 
0.47380*04 
-0.38350*04 
-0.95850*04 
-0.85420*04 
-0.25700*04 
0.68650*04 
0.11260*05 


STRAIN (III 
-0.12020*00 
-0.9448D-01 
-0.81620-01 
-0,53420-01 
-0. 19490-01 
-0.22S3D-02 
0.77600-01 
-0.23260-02 
-0.69650-01 
-0.27470-01 
-0 .293 00-01 
-0. 14880-01 
-0.31880-02 
0.83690-03 
0.89020-02 
0.84040-02 
0.13540-01 
0.63440-02 
0.13700-02 
-0. 13310-02 
-0.25530-02 


STRAIN (OOT) 
-0.7105D-01 
-0.76420-01 
-0.697U-01 
-0.535TC-01 
-0.47960-01 
-0.36280-01 
-0.9813C-01 
0.62J6C-02 
0.4049C-01 
0.73960-02 
0.1030D-01 
0.4029C-02 
0.265SC-02 
-0.91960-03 
0.77070-03 
-0.7542C-03 
-0.1822C-02 
-0.5375C-03 
0.11250-02 
0.18420-02 
0.1378C-02 


REACTIONS AT NODE 
1 

21 


RV(tfiS) 

0.1502610*05 

0.3692550*05 


PN(LBS) 

0.0 

0.0 


R0 (IN-LBS) 
0.1522300*05 
-0.1235570*05 


SOBSTRUCTURB 

N5TR 

ELI 

SORF 

STA 

1 

0.1239060*00 

9 

2 

1 

INTERFACE 

0.9814610-02 

6 

1 

1 


TIBE 

0.6000000-03 

0.8000000-05 


S0BS7RUCTURE 

1 

INTERPACB 


LARGEST ADD. PT. STRAIN 
0.4B8302D-02 
0,2964910-02 


HEN ADD. PT. 
20 1 

20 1 


TINE 

0.3R4000D-03 

0.2000000-03 


SURFACE 

t 

1 


SUBSTRUCTDRE 

1 


LARGEST NODAL STRAIN 
0.1009500*00 


NODI 

7 


SURF ' TINE 

1 0.5960000-03 


THE LARGEST CONPOTEO STRAINS FOB EACH SOBSTBUCTDRR— ' HAIR AND BBARCHBS — ABE PRINTED BELOH, 1« ZRNER 2« ODTER SURF 


SDBSTRnCTURE 

RSTR 

ELI SORF 

STA 

TINE 


1 

0.1239080*00 9 2 

1 

0.6000000-03 


INTERFACE 

0.96U610 

-62 6 1 

1 

0.8000000-05 


S06STR0CTQRE 

LARGEST 

ADO. PT. STRAIN 

ELNN 

ADD. PT. TIHR 

SORFACB 

1 


0.4B83020-02 

20 

1 0.364000B-03 

1 

INTERFACE 


0.2964910-02 

20 

1 0.2000000-03 

1 

SUfiSTROCTUBB 

LABGP.ST 

NODAL STNAIH 

NODE 

SURF TINE 


1 


0.1009500*00 

7 

1 0.S96000O-OX 



rum ARE NO CARDS PONCHIO FOR CONTINNATZOI 
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7>2 CIVM-JET 5B Example; A Fragment- Impacted, Elastic-Foundation- Supported, 
Variable-Thickness, Two-Layer, Partial Ring with One Support Branch 

7.2.1 Problem Description 

The geometry of the main structure, as shown in Fig. 12, is a partial 
ring composed of an initially-straight portion and a circular portion. The 
straight section is 10.0 -in long, 1.5-in wide, and varies linearly in thick- 
ness from 0.3-in at its pinned end to 0.1-in where it joins the circular 
portion. The circular section has a 5.0-in mean radius, a 1.5”in width, a 
0.1-in uniform thickness, and consists of a 60° arc. The partial ring is 
supported by a pinned joint at its left-hand end, a branch connected at the 
straight-circular junction, and an elastic foundation located as depicted in 
Fig. 12. This foundation consists of arbitrarily chosen normal k^^ and 
tangential k^ stiffness equal to 1500 psi and 3000 psi, respectively. 

The "main structure" of the partial ring is called substructure one (1) 
and is assumed to consist of two layers of material firmly attached to each 
other at the interface. The inner layer and the outer layer of the structure 
are equal thicknesses of aluminum and steel, respectively. 

The main structure has a steel branch attached to its steel outer layer. 

The branch is 1.0-in wide, 2.23607-in long, and has a constant thickness of 
0.4 in. The branch has a slope discontinuity between its two equal-length 
elements. The branch attaches to the steel outer surface of the main struc- 
tvire at the eleventh node of the ring and is clamped at its other end. 

The aliminum material of the main structure's inner layer has a yield stress 

7 

of 46,000 psi, an elastic modulus of 10 psi, and is represented by a two 

mechanical-sublayer model defined by the following stress-strain (a, e) 

pairs: a , e = 46,000 psi, .0046 and e = 58,000 psi, 0.18000. The 

strain- rate constants were chosen to be D = 6500 sec and p = 4. The mass 

-3 2 4 

density is 0.250x10 (lb-sec )/in . The steel material used in the main 

0 

structure's outer layer and in the branch has an elastic modulus of 29x10 
psi, a yield stress of 80,950 psi, and is represented by a three-mechanical- 
sublayer model defined by a , £ = 80,950 psi, .00279; O , £ = 105,300 psi, 

.L M ^ 

.02250, and a , = 121,000 psi, .20000. The strain rate constants for the 

^ ^ -1 

steel are assumed to be D = 40.4 sec and p = 5, with a mass density of 
.733085x10"^ (lb-sec^) /in^. 
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The variable- thickness straight portion of the structure is modeled by 
10 equal-length finite elements; 6 equal-arc finite elements represent the 
constant thickness curved section; and 2 equal-length elements represent the 
constant thickness branch. This makes a total of 18 finite elements used for 
the entire structure. 

The elements of the main structxire are initially numbered consecutively 
from 1 to 16, and the branch elements are initially n\jmbered from 1 to 2; this 
is depicted in Fig. 12b. The program will then renumber the elements from 
left to right to include the branch elements in the global system; the result- 
ing renumbering is shown in Fig. 12c. 

The attacking fragment has the following parameters (see Fig. 12a) : 

. -3 2 

radius r = 0.5 in, mass m_ = .385610 x 10 (lb-sec /in); mass moment of 

. -4 2 

inertia = 0.482014 x 10 (lb-sec -in); initial translational velocity 

components: = 2607.96 in/sec, = 1482.75 in/sec; initial rotational 

velocity 9. = 0.0; initial C.G. position Y = 6.0 in, Z = -2.0 in. The 
X CG CG 

value of the coefficient of restitution, e, is set at 1.0 to represent a 
perfectly-elastic impact reaction, and the coefficient of friction is set to 

0 . 0 . 

The strain is to be calculated at each of the three spanwise Gaussian 
stations and each node of the main structure and the branch. Also, 3 addi- 
tional points at which strain predictions are desired are requested. Two of 
these are on main structural elements 9 and 11; the point on element 9 is 
located near the point of first impact and the point on element 11 is located 
near the branch connection (s coordinates 0.53 and 0.05, respectively). The 
additional strain point on the branch is located at s = 0.50 of the first 
element; this corresponds to the same location as the second Gaussian station 
on this element. The strains should be exactly the same at this point since 
both the Gaussian station and the additional point are at the same physical 
location. 

The CIVM-JET 5B program will be used to calculate the structural response 
of the ring and the motion of the fragment, using a time step of 2 microseconds. 
Printout of structural responses and fragment position data are desired at 
intervals of every 20 time steps (or cycles) until 300 cycles have been com- 
pleted. 
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7.2.2 Input Data 

The values to be punched on the data cards are as follows: 

Card 1 

IK = 16 
ICP = 0 
NLAY = 2 
LREF = 1 
NOGA = 3 
NFL = 4 
MM = 790 
Ml = 490 
M2 = 20 
ICON = 0 

Card 2 

NSPL(1,1) = 2 
NSFL{2,1) = 3 

Card 3A 

DENS (1,1) = 0.250000D-03 
DS(1,1) = 0.650000D+04 
P(l,l) = 0.400000D+01 

Card 4AA 

EPS (1,1,1) = 0.460000D-02 
SIG (1,1,1) = 0.460000D+05 
EPS (1,2,1) = 0.180000D+00 
SIG (1,2,1) = 0-580000D+05 

Card 3B 

DENS (2,1) = 0.733085D-03 
DS(2,1) = 0.404000D+02 
P(2,l) = 0.500000D+01 

Card 4BA 

EPS (2, 1,1) = 0.279000D-02 


1015 


215 


3D15.6 


4D15.6 


3D15.6 


4D15.6 
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SIG(2,1,1) 
EPS (2, 2,1) 
SIG(2,2,1) 


0.809500D+05 

0.225000D-01 

0.105300D+06 


Card 4BB 

EPS {2, 3,1) = 0.200000D+00 
SIG(2,3,1) = 0.121000D+06 


Card 5 

B(l) = 0.150000D+01 
DELTAT = 0.200000D-05 

Card 6A 

Y(15 = 0.0 
Z(l) = 0.0 
ANG(l) =0.0 


2D15.6 


2D15.6 


3D15.6 


Additional cards are punched in the same format until all 17 nodes of 
the main structure are described. 

Y(17) = 0.143301D+02 
Z(17) = 0.250000D+01 
ANG(17) = 0.600000D+02 


Card 7A 

H(l,l) = 0.150000D+00 
H(l,2) = 0.150000D+00 
H(2,l) = 0.140000D+00 
H(2,2) = 0.140000D+00 
H(3,l) = 0.130000D+00 


5D15.6 


Additional cards are punched until all the nodal thicknesses for each 
layer are described, with five data entries per card. 
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H(16,l) = 0.050000D+00 
H(16,2) = 0.050000D+00 
H(17,l) = 0.050000D+00 
H(17,2) = 0.050000D+00 

Card 8A 15 

NDIS = 0 

Card 9 

NBR = 1 

Card 9A I5,4D15.6 

NSFL(1,2) = 3 
B(2) = O.lOOOOOD+01 
DENS a, 2) = 0.733085D-03 
DS(1,2) = 0.404000D+02 
P(l,2) = 0.500000D+01 

Card 9AA 4D15.6 

EPS (1,1, 2) = 0.279000D-02 
SIG (1,1,2) = 0.809500D+05 
EPS (1,2, 2) = 0.225000D-01 
SIG(1,2,2) = 0.105300D+06 

Card 9AB 2DI5.6 

EPS (1,3, 2) = 0.200000D+00 
SIG(1,3,2) = 0.121000D+06 

Card 9B 415 

NELT(l) =2 
NODP(l) = 11 
LHIT(l) = 0 
lATT(l) =0 

Card 9BA 4D15.6 

YB(1,1) = 0.105000D+02 
ZB (1,1) = O.lOOOOOD+01 
ANB(1,1) = 0.634349D+02 
HB(1,1) = 0.400000EH-00 
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Card 9BB 


4D15.6 


YB(1,2) = 0.115000D+02 
ZB (1,2) = 0.150000D+01 
ANB(1,2) = 0.265651D+02 
HB(1,2) = 0.400000D+00 

Card 9BC 

YB(1,2) = O.lOOOOOD+02 
ZB (1,3) =0.0 
ANB(1,3) = 0.634349D+02 
HB(1,3) = 0.400000D+00 

Card 9C 

NDISB = 1 

Card 9CA 

NEDIB = 2 
NBDI = 1 

ANGB = 0.265651D+02 

Card 9D 

NBCONB = 1 

Card 9DA 

NBCB(l) = 2 
NODBB(l) = 2 
LBR(l) = 1 

Card 10 

NOP = 3 
NASP = 3 
NTERF = 1 

Card lOA 

NSBS(l) = 1 
NSEL(l) = 9 

AZET(l) = 0.530000D+00 


4D15.6 

NOTE ; This is the attachment 
point information. 


15 


2I5,D15.6 


15 


315 


315 


2I5,D15.6 
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Card lOB 


2I5,D15.6 


NSBS(2) = 2 
NSEL(2) = 1 
AZET(2) = 0.500000D+00 

Card IOC 

NSBS(3) = 1 
NSEL(3) = 1 

AZET(3) = 0.500000D-01 
Card 11 

AXG(l) = 0.1127016653792585I>^-00 
AXG(2) = 0.5000000000000000D+00 
AXG(3) - 0.8872983346207415D+00 

Card 12 

AWG(l) = 0.2777777777777778D+00 
AWG(2) = 0.44444444444444444D+00 
AWG(3) = 0.2777777777777778D+00 

Card 13A 

TXG(l) = -0.861136311594053D+00 
TXG(2) = -0.3399810435848560D+00 
TXG(3) = 0.3399810435848560D+00 

Card 13B 

TXG(4) = 0.861136311594053D+00 
Card 14A 

TWG(l) = 0.3478548451374540D+00 
TWG(2) = 0.6521451548625460D+00 
TWG(3) = 0.6521451548625460D+00 

CArd 14B 

TWG(4) = 0.3478548451374540D+00 

Card 15 

NBCOND = 1 


215,015.6 


3025.16 


3025.16 


3025.16 


025.16 


3025.16 


025.16 

315 
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NODEB(l) = 1 


Card 16 

NQR = 2 
NORP = 0 
NORU = 2 

Card 16B 

SCTU = 0.300000D+04 

SCTW =0.0 

SCRU = 0.150000D+04 

Card 16BB 

NRST(l) = 9 
NREU(l) = 2 
NRST(2) = 13 
NREU(2) = 3 

Card 17 

NF = 1 

EFLN(l) = 0.0 
Card 18AA 

FH(1) = O.lOOOOOD+01 
FCG(l) = -0.200000D+01 
FCGX(l) = 0.600000D+01 
FMASS(l) = 0.385610D-03 
FMOI(l) = 0.482014D-04 

Card 18AB 

UNK(l) = 0.0 

Card 18AC 

UDOT(l) = 0.260796D+04 
WDOT(l) = 0.148275D+04 
ADOT(l) = 0.0 
TPRIM(l) = 0.960000D-03 
CR(1) = O.lOOOOOD+01 


315 


3D15.6 


415 


I5,D15.6 


5D15.6 


D15.6 

5D15.6 



Card 19 


IS 



ICONT = 0 

This is the last data card for this CIVM-JET SB run. 
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THIS IS THE INPUT DECK FOR EXAMPLE 7.2 


16 0 2 

0 a 

1 3 4 

790 490 20 

L> 

C. j 

00.2500000-03 

O0.650AO0O+G4 

00.430 30 30+-V1 

: 

00.^600000-02 

00.4600000+05 

00.1800000+30 

00.5800000+05 

00.7330850-03 

00.4040000+02 

00.503 300+31 


00.2790000-02 

00.8095300 05 

00.225'!000-01 

03.1053300 05 

00.2000000 00 

00.1210000 06 



00.1500000+01 

00.2003^00-05 



00.0 

00.0 

00.0 

30.3300GOD+0:) 

OO.lOOOOOD+01 

00.0 

00. 0 

0O.28COCOO+O0 

00.2000000+01 

00.0 

00.3 

00. 2 6 00 03 0+00 

O0.3D0O00D+O1 

00 .0 

00. n 

03.2400 >30+03 

00.40000QD+01 

00.0 

00.0 

CO. 2200000+03 

00.5000000+01 

00.0 

00.3 

00.2000300+03 

00.6000000+01 

00 . 0 

Go. 3 

-3.18G03JD+03 

00.7300000+01 

00.0 

00.0 

00.160000D+03 

00.8000000+01 

00.0 

00.3 

00.1400000+03 

OD.90000:>D+01 

00.0 

00.3 

>3. 1200330+03 

00.1000030+02 

00.0 

00.0 

00.1000030+03 

00.1386820+02 

-0.7596120-01 

-0.1000000+02 

00.1000000+03 

00.1171010+02 

-0.30 15 370+00 

-0. 2003000+32 

.)0.10DOvOO+03 

00.1250000+02 

-D.669873D+D0 

-0.300300D+J2 

00.1C-00:jOD+03 


00.132139D+02 -0. 116978D+01 -0. 4000D00+02 00. lOOOOOD+03 

00.138302D + 02 -0 . 178606D+01 -0. 500 *00D+ '*2 OH, IDOOOOD+OD 

00.1433010+02 “0.2500000+01 -0. 600 ,a00+02 00. lODOuOD+OD 

00.150000D+OD 00.1500000+00 00. 140JOOD+00 00. 140000D+OD 00.1300000+00 

00. 1300000+00 00.1200000+00 GO. 1200000+ 00.1100000+00 OO.llOOOOD+00 

OO.IODOOOD+Oi) OD. 1000000+00 00.0900)00+00 00.0900000+00 00.0800000+00 

00.0800000+00 00.0700000 + 00 00. )70.JOOD+O0 00.0600000+00 00.0600000+00 

00.0500000+00 00. 0500000+00 00. 0500 300+00 00.0500000+00 00. 05:'000D+0'> 

00.3500000+00 00.050f'>OOD+00 00. :i50n '*00+:0 OO.:.!5 jG jDO+O0 00.0500000+00 

U0.05000DO+00 OU.O5O:)O0D + Q0 GO . ')50 X^00+"'O 00.^500000+03 

0 
1 

3 00. 10000. '0+01 0 3.7330850-03 00 . 404 ) 300+02 00. 5 j0030D+.3;1 

00.2790000-02 00.8095DOD 05 OJ.225'’.30D-Ol no.i:353Lvao 05 





0Q.20DO03D OO OD.iaiOOOD ">6 
2 11 0 0 

00.1D5003D402 00. lOOOOOD+01 00. S343^9D+12 00.4000000^00 

G0.11500DD+02 00 . 1500DOD+01 00. 26565 1D+ 02 00.4000^^00+03 

OO.lOOOODD+02 0».0 00.6343490+02 OO.AOOOOOD+OO 

1 

2 1 00.2656510+02 

1 '■ ^ ^ . 

2 ' 2 ■ 1' ■ I ■ ■ 

■3 3 -1 ■ ■ ■ t ^ 

1 9 00.5300000+00 ' 

2 1 DO.SDOOOOD + Ui " 

1 11 oo.50o;)ooo-oi 

00.11270166537925850+ )0. 50000^00 .>000''<00r!0+ 00 00. 88729 93346207415D+0 0 

00.27777777777777780+00 uO .44444444444444440+00 00. 277T7777777777780+07 

-0.861 13631 159405300+ ):> -0.33998 104 35848 5600+ )0 00.33998104358485600+00 

00. 86 11 363 11 59405300+00 

00.34785484513745400+00 00.65214515486254600^00 00.6521451548625460D+0 3 

00.34785484513745400+10 
13 1 

2 0 2 

00.30000CD+04 00.0 GO. 150000D+04 

9 2 13 3 

1 00.0 

Ot). 1000000+01 -0. 2000000+01 00.600 }0DD+:)1 00. 3855,10.0-33 0iK.482014D^34 

00.0 

00.260796D+04 00. 1482750+04 00. ) 00. 960000D-D3 00. 1 '.'OOOOO+0 1 

0- 
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7.2.3 Solution Output Data for Example 2 

The following is the output obtained as a result of a 600 microsecond 
CIVM-JET 5B analysis of this two layer partial ring example. 

The numbering system for the nodes and elements is listed as well as 
an identification of the branch attachment point and the slopes at the branch 
connection and at the slope discontinuity. The partial ring initial geometry 
(for both layers) , boundary conditions, and elastic foundations are defined 
as well as all the necessary data pertaining to the impacting fragment. A 
reference time step is computed and printed for a comparison against the 
user-designated time step of 2 microseconds in this case. 

Each impact is recorded (there are 2 impacts during this run) and the 
essential data concerning element number, fragment number, time, location 
and post- impact fragment energies are output. For each printout cycle, an 
update of each nodal position, the fragment position, the strains at each 
Gaussian point and each addition strain point (inner and outer surfaces and 
interface) and at each node, and the reaction forces are given. 

Initial impact occurs on element 9 at 967.796 microseconds after 
fragment release; this is computational time cycle 484. During this computer 
run the maximum strain reaches 3.36% on the main structure and only 2.73% on 
the branch. 

Note that for conciseness only a portion of the requested output is 
presented here. Included are: all initial problem data, printout at time 

cycles 490, 510, 530, 550, 570, 590, ... skip to 770, 790 (last); a record 
of all impacts occurring up to time cycle 790 is retained. 
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THIS IS RU!^ NUMBER 1 FOR THIS CIVM-JET 5B SUBMITTAL 

THERE ARE 18 ELEMENTS AND 19 NODES 

THERE ARE I BRANCHES AND THEY ARE AT NODES 11 

THE GLOBAL SLQPE(RAD) AT EACH BRANCH CONNECTION: 0.110715D*CI 

THE ATTACHMENT POINT CODE TOR THE 1 BRANCHES IS AS FOLLOWS: 

0 

WHERE -1= INNER AND 0 = OUTER SURFACES. It2,3 INDICATE HIDSURFACF OF CORRESPONDING LAYER. 


NJ 

0 > 


PRESENT ELEM. NO. 

NODEl 

N0DE2 

SUBSTRUCTURE 

SUBST. ELEM 

1 

1 

2 

1 

1 

2 

2 

3 

1 

2 

3 

3 

4 

1 

3 

4 

4 

5 

1 

4 

5 

5 

6 

1 

5 

6 

6 

7 

1 

6 

7 

7 

8 

1 

7 

8 

8 

9 

1 

8 

9 

9 

in 

1 

9 

10 

10 

11 

1 

10 

11 

11 

12 

2 

1 

12 

12 

13 

2 

2 

13 

11 

14 

1 

11 

14 

14 

15 

1 

12 

15 

15 

16 

1 

13 

16 

16 

17 

1 

14 

17 

17 

18 

1 

15 

IB 

18 

19 

1 

16 


THE UPDATED NODE NUMBERS FOR THE MAIN STRUCTURE, GIVEN IN THEIR ORIGINAL NUMBERING ORDER: 
I 2 3 4 5 6 r 8 9 10 U lA 15 16 17 18 19 ' 

NOTE: THE ELEMENT NUMBERS REFERRED TO BELOW ARE PRESENT ELEMENT NUMBERS 


ELEMENTS THAT CAN 

NOT BE 

IMPACTED: 



11 12 0 

0 0 

0 0 

0 

0 0 

0 0 0 

0 0 

0 0 

0 

0 

ADDITIONAL STRAIN 

POINT 

ELEMENT 

s 

COORDINATE 

1 


9 


0.530000DH-00 

2 


11 


0. 5000000*00 

3 


13 


0.5000000-01 


EACH OF THE FOLLOWING ELEMENTS HAS A SLOPE DISCONTINUITY AT ITS FIRST NODE 
12 

the global Slope (rad.) at each discontinuity equals: 

0.463648D-*-00 


*3 


*♦•**•*«**♦ A SPATIAL FINITE ELEMENT AND HOUBOLT TEMPORAL OPERATOR PROGRAM 

USED TO CALCULATE THE NONLLNEAR RESPONSES OF A VARIABLE THICKNESS MULTILAYER 
AR3ITRARILY CURVED PARTIAL RING WITH THE FOLLOWING PARAMETERS 
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i. 


PROPERTIES OF THE MAM STRUCTURES 

WIOTH OF RING (IN) * O.lSOOOOO^Ol 

NUNRER UF ELEMENTS • 16 

NUHRER OF SPANWISE GAUSSIAN POINTS « 3 

NUMBER OF DEPTHWISE GAUSSIAN POINTS = 4 

NUMBER OF LAVERS » 2 

REFERENCE SURFACE IS THE MIDDLE SURFACE OF LAYER« 1 


MATERIAL PROPERTIES OF LAYER * I 

DENSITY(LB-SEC**2/IN**4) . 0.2S0000D-()3 

NUMBER OF MECHANICAL SUBLAYERS « 2 


STRAIN STRESS 

1 0.4600000-02 0. 4600000405 

2 0.1800000400 0.5300000405 

MATERIAL IS STRAIN RATE SENSITIVE WITH 

0 = 0.6500000404 P = 0.4000000401 


MATERIAL PROPERTIES OF LAYER 
0ENSITY(LP-SEC**2/IN**4 I 
NUMBER OF MECHANICAL SUBLAYERS 


0.7330850-03 

3 


STRAIN 

0.27P000D-02 

0.2250000-01 

0.2000000400 


STRESS 

0.8095000405 

0.1053000406 

0.1210000406 


MATERIAL IS STRAIN RATE SENSITIVE WITH 


0.4040000402 P 


0.500000D401 


PROPERTIES OF BRANCH NUMBER 1 : 

WIDTH OF RING (INI = 0.1000300401 

NUMBER OF ELEMENTS = 2 

NUMBER OF SPANWISE GAUSSIAN POINTS = 3 

NUMBER OF DEPTHWISE GAUSSIAN POINTS » 4 

NUMBER OF LAYERS « 1 

REFERENCE SURFACE IS THE MIDDLE SURFACE OF LAYER* 1 


MATERIAL PROPERTIES OF LAYER 
DENSITY(LB-SEC**2/IN**4| 

NUMBER OF MECHANICAL SUBLAYERS 


0.7330B5D-03 

3 


1 

2 
3 


MATERIAL IS 
0 


STRAIN 

0.2790000-02 

0.2250000-01 

0.2000000400 


STRESS 

O.B09500D405 

0.105300D406 

0.1210000406 


STRAIN RATE SENSITIVE WITH 
= 0.4040000402 o = 0.5000000401 


HINGED DISPLACEMENT CONDITION AT NODE = 1 

CLAMPED DISPLACEMENT CONDITION AT NODE = 13 


CONSTRAINTS (ELASTIC FQUNOATI ON/SPRINGl AS DESCRIBEtl BY INPUT 


NODE NO 

Y COOROIINI 

Z COOROI INI 

SLOPE 1 RADI 

RING THICKNESS! INI 







LAYER I 

LAYER 2 

LAVER 3 

1 

0.0 

0.0 

0.0 

3.150000D400 

0.1500000400 


2 

O.IOOOOPD401 

0.0 

0.0 

3.1400000400 

0.1400000400 


3 

0.2000000401 

0.0 

0.0 

0. 130000D400 

0.1300000400 


4 

0.3000000401 

0.0 

0.0 

3.1200000400 

0.1200000400 


5 

0.4000000401 

0.0 

0.0 

3.1100000400 

0.1100000400 


6 

0.500000D401 

0.0 

0.0 

0.1000000400 

0.1000000400 


1 

0.600000D401 

0.0 

0.0 

0. 9000000-01 

0.9000000-01 


8 

0.7000000401 

0.0 

0.0 

0. 8000000-01 

0.8000000-01 


9 

0.8000000401 

0.0 

0.0 

0.7000000-01 

0.7000000-01 


10 

0.900000D401 

0.0 

0.0 

0.6000000-01 

0.6000000-01 


11 

0.1000000402 

0.0 

0.0 

0.5000000-01 

0.5000000-01 


12 

0.1050000402 

0.1000000401 

0.1107150401 

0.4000000400 

0.0 


13 

0.1150000402 

0. 1500000401 

0.4636480400 

0.400000D400 

0.3 


14 

0.10B6S20402 

-0,7596120-01 

-0.1745330400 

0.5000000-01 

0.5000000-01 


15 

0.1171010402 

-0.30153 7D400 

-0.3490660400 

0.500000D-01 

0.5000000-01 


16 

0.1250000402 

-0.669873D400 

-0.523599D400 

D.500000D-01 

0.5000000-01 


17 

0.1321390402 

-0.1169780401 

-0.6981320400 

0.5000000-01 

0.5000000-01 


IS 

0.1383020402 

-0. I78606D4O1 

-0.872665D400 

0.5000000-01 

0.5000000-01 


19 

0.1433010402 

-0.250000D401 

-0.1047200401 

0.5000000-01 

01.5000000-01 
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GAUSSIAN STATIUNS JljtD WEISMTS: 

AXi 1 = 0. Il270l6fe*’>^79;:»;*j 

AWG 

1 

« 

O.ZTTTTTTTTTTTTTS 

AXS 

2 

* 0,500000000000000 

AWC 

2 

a 

0.A4AAAAAAAAAAAAA 

AXG 

•T' 

« 0«86729833A6207A1 

AWG 

3 

a 

0.27riT7T7T»777TB — 

rxG 

1 

» -0.86113631159^053 

TWG 

1 

a 

0.1A785ARA5137ASA 

TXG 

? 

- -0. 3399810A 45BA i56 

TWG 

2 


0.65Z1X515«B6;SA6 

TX5 

3 

* C. 31998 1 0^ 358A856 

TMG 

3 

a 

0.6521X515X8625X6 

TAG 

A 

* 0.B6113631L59A053 

TMG 

. A 

a 

0.3X7S5XHX5137X5X 


SUE OF ASSEKBLED M»SS OR STIFFNESS MATRIX - 510 


LIIHFEO MASS MATRIX FOR EACH ELEMENT : 


0 . 1083850-01 

0.0 

0.0 

0.0 

0*0 

0*0 

0.0 

0.0 


0.0 

0 . 1083850-03 

0.0 

0.0 

0*0 

0.0 

0.0 

0.0 


0.0 

0.0 

0 . 2 A 95 aOO »05 

0.0 

0*0 

0*0 

0.0 

Q.O 


0.0 

0.0 

0.0 

0 . 1972310-05 

0*0 

0*0 

0.0 

0.0 


0.0 

0.0 

0.0 

0.0 

0 * 1054160-01 

0*0 

0.0 

0.0 


0.0 

0.0 

0.0 

0.0 

O.C 

0 . 1054160-03 

0.0 

0.0 


0.0 

Q.O 

0-:6 

0.0 

0*0 

0*0 

0 . 2 X 19800*05 

0.0 


0.0 

0.0 

0,0 

0.0 

0.0 

0*0 

0.0 

0 . 19 X 77 X 0-05 


0 . 1010120-01 

0*0 

0.0 

0.0 

0*0 

0.0 

0.0 

0.0 


0.0 

0 . 1010120-03 

0.0 

Q.O 

0*0 

0*0 

0.0 

0.0 


0.0 

0.0 

0 . 2261260-05 

0.0 

0*0 

0*0 

0.0 

0.0 


0.0 

0.0 

0.0 

o . teiriAo-os 

0*0 

0*0 

0.0 

0.0 


0.0 

0.0 

0.0 

0.0 

0. 96062 70 >!‘ 0 A 

0.0 

0.0 

0.0 


0.0 

0.0 

0.0 

0.0 

0*0 

0 * 9806270-04 

0.0 

0.0 


0.0 

0.0 

0.0 

0.0 

0*0 

0*0 

0 ; 2 l 92 IlD -05 

0.0 


0.0 

0.0 

0.0 

0.0 

0.0 

0*0 

0.0 

0 . 1812560-05 


0 . 9363860 *-PA 

0.0 

0.0 

0.0 

- 0.0 

0 . 0 

0.0 

0.3 


0.0 

0 . 936386 O - 0 A 

0.0 

0.0 

0*0 

0*0 

0.0 

0.0 


0.0 

0.0 

0 . 20 A 0160-05 

_ 0.0 

0*0 

0.0 

0.0 

0.0 


0.0 

0.0 

0,0 

0 . 1701970-05 

0.0 

0.0 

o.a 

0.0 


0.0 

0.0 

0.0 

0.0 

0 . 906896 U-OA 

0*0 

0.0 

0.0 


0.0 

0.0 

0.0 

0.0 

0.0 

0 . 9066960-04 

0.0 

0.0 


0.0 

0.0 

0.0 

0.0 

0.0 

0*0 

0 . 1977370-05 

0.0 


0.0 

0,0 

O.G 

0.0 

0*0 

0*0 

0.0 

0 . 1677390-05 


0 . 8626570 - 0 A 

0.0 

0.0 

0.0 

0.0 

0*0 

0.0 

0.0 


0.0 

0 . 862557 D - 0 A 

0.0 

0.0 

0.0 

0*0 

0.0 

0.0 


0.0 

0,0 

0 . 18315 AD -05 

0.0 

0.0 

0*0 

0.0 

0.0 


0.0 

0,0 

0.0 

0 . 156679 D -05 

0.0 

0*0 

0.0 

0.0 


0.0 

0,0 

0.0 

0.0 

0 . 8331650 - 0 A 

0*0 

0.0 

0.0 


0.0 

0.0 

0.0 

0.0 

0.0 

0 * 6331650-04 

0.0 

o.O 


0.0 

0.0 

0.0 

0.0 

0.0 

0*0 

0 . 177 X 610-05 

0.0 


0.0 

0.0 

0.0 

0.0 

0.0 

0*0 

0.0 

0 . 15 X 2210-05 


0 . 7 S 69260 -OA 

0,0 

0.0 

0.0 

0.0 

0*0 

0.0 

0.0 


0.0 

0 . 78 B 9260 - 0 A 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 


0.0 

0.0 

0 . 163 AAID -05 

0.0 

0.0 

0*0 

0.0 

0.0 


0.0 

0,0 

0,0 

0 . 1 A 31620-05 

0.0 

0.0 

0.0 

0.0 


0.0 

0.0 

0.0 

0.0 

0 . 759 A 13 U-bA 

0.0 

0.0 

0.0 


0.0 

. 0.0 

0.0 

o.c 

0.0 

0 . 75943 30 - 0 ^ 

0.0 

0.0 


0.0 

0,0 

0.0 

0.0 

0.0 

0.0 

0 . 1582360-05 

0.0 


0.0 

0.0 

0.3 

0.0 

0.0 

0*0 

0.0 

0 . 1 X 070 X 0-05 


0 . 71519 AD - 0 A 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 


0.0 

0 . 71519 AO-OA 

0.0 

0.0 

0.0 

0*0 

0.0 

0.0 


0.0 

0.0 

0 . 1 AA 7790-05 

0.0 

0*0 

0*3 

0.0 

0.0 


0.0 

0.0 

0.0 

0 , 1296 AA 0-05 

0.0 

0*0 

0.0 

0.0 


0.0 

0*0 

0.0 

0.0 

0 . 6857020-04 

0.0 

0.0 

0.0 


0.0 

0.0 

0.0 

0.0 

0.0 

0 . 6857020-04 

0.0 

0.0 


0*0 

0.0 

0.0 

0.0 

0.0 

0*0 

0 . 1 X 01130-05 

0.0 


0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0 . 1271870-05 


0 . 6 AIA 63 D - 0 A 

0*0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 


0.0 

0 . 6 A 1 A 630 - 0 A 

0.0 

0.0 

0*0 

0*0 

0.0 

0.0 

O 2 

0.0 

0.0 

0 . 127070 D -05 

0*0 

0*0 

Oi .0 

0.0 

0.0 

"H 2 

0*0 

0.0 

0.0 

0 . 1161270-05 

0.0 

0*0 

0.0 

0.0 

mm 53 

0*0 

0,0 

0.0 

0.0 

0 . 61197 OD - 0 A 

b.o 

0.0 

0.9 


0.0 

0.0 

0.0 

0.0 

0.0 

0 * 6119700-04 

0.0 

0.0 

O 2 

0.0 

0.0 

0.0 

0 . 0 ' 

0,0 

0*0 

0 . 1228 X 50-05 

0.0 

O 3> 

0.0 

0,0 

0.0 

0.0 

0.0 

0.0 

0.0 

0 . 1136690-05 

30 rt 

0 . 5677320 - 0 A 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 


0*0 

0 . 56 T 7320 - 0 A 

0.0 

0.0 

0*0 

0.0 

a.p 

0.0 

lO "0 

0.0 

0.0 

0 . 1102180- 05 

0.0 

0.0 

0.0 

o.c 

0.0 


0*0 

0.0 

0,0 

0 . 102609 D -05 

0*0 

0.0 

0..-0 

0.0 


OeO 

0,0 

0.0 

0.0 

0 . 5182390-04 

0.0 

O'.O 

0.0 


0.0 

0.0 

0.0 

0.0 

0.0 

O . 518239 U <04 

0.0 

0.0 

I- rn 

0.0 

0.0 

0.0 

0.0 

0.0 

0*0 

0 . 10638 X 0-05 

0.0 

^ — 

0*0 

0.0 

0.0 

0.0 

0*0 

0.0 

0.0 

0 . 1001 S 2 D -05 

5 CO 


«3 

O Z 
Oj> 
J3»r- 

,0 2 

la 


0.<^940000-0v 

0*0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.4202&90-0<» 

0.0 

0.0 

0.0 

0.0 

O.J 

0.0 

0.0 

0.U372OD-03 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.1569100-03 

O.D 

0.0 

0.0 

0.3 

0.0 

0*0 

0.0 

0.3265630-0^ 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.3265920-06 

0.0 

0.0 

0*0 

0.0 

0.0 

0.0 

0.0 

0.3265T80-06 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.3265660-06 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0*3265800-06 

0.0 

0.0 

0.0 

0.0 

o.c 

0.0 

0.0 

0.1265780-06 

0.0 

0.0 

0.0 

6*0 

6.0 

0.0 

0.0 


0.0 

0.6960000-06 

0*0 

0*0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.6202690-06 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.1193260-03 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.1567270-03 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.121713U-06 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.3217630-06 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0*0 

0.321768D-06 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.3217370-06 

0.0 

0.0 

0.0 

0.0 

0.6 

0.0 

0.0 

0.3217520-06 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0. 3217680-06 
0.0 
0.0 
0.0 
0.0 
0.0 
0.0 


0.0 

0.0 

0.9612360-06 

0^V) 

0.0 

0.0 

0^0 

0.0 

0.0 

0.0 

0.7868900-06 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.763187D-05 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.633960II-05 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.666895D-06 

0.0 

0.0 

0.0 

0.0 

0.0 

6.0 

0.0 

0.6670170-06 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0. 6669590-06 
0.0 
0.0 
0.0 
0.0 
0.0 
6.0 
0.0 

0.6669160-06 

0.0 

0.0 

0.0 

0.0 

0.0 

0.6 

0.0 

0.6669690- 06 
0.0 
0.0 
0.0 
0.0 
0.0 
0.0 
u.o 

0.6669570-06 

0.0 

0.0 

0.0 

0.0 

0.0 


0.0 

0.0 

0.0 

0.8909210-06 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0. 7557670-06 

0.3 

0.0 

0.3 

0.'' 

0.0 

3.3 

0.9 

0.1756560-05 

0-0 

0.0 

0.9 

0.0 

0.0 

0.0 

0.0 

0.1756560-05 

0.6 

0.0 

0.0 

0.0 

0.0 

0.3 

0.9 

0.6558380-96 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.6559610-06 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.6559020-06 

0.0 

0.0 

0.0 

0.0 

0^0 

0.0 

0.0 

0.6558550-06 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

O.D 

0.6559130-06 

0.0 

0.0 

0^0 

0.0 

0.0 

0.0 

0.0 

0.6558990-06 

0.0 

0.0 

0.3 

0.0 


0.0 

0.0 

0.0 

0.0 

0.6665080-06 

0.0 

O.’J 

0.0 

0.3 

0.0 

0.0 

0.0 

0.390776D-06 

O ."* 

0.0 

0.0 

0.0 

0.0 

0.3 

0.0 

0.16036 »U-03 
0.0 
O.J 
0.0 
0.0 
0.0 
0.0 
0.0 

0.1553V9D-03 

0.0 

0.0 

0.0 

0.0 

0.3 

0.0 

0.0 

0.1265620-06 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.3265920-06 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.32657TD-06 

o.n 

0.0 

0.0 

0.0 

0^0 

0*0 

0.0 

0.3265650-06 

0.0 

0.0 

0*0 

O.D 

0.0 

0*0 

0.0 

0.1265810-06 

0.0 

0.0 

0.0 

0.0 

0.9 

0.0 

0.0 

0.3265760-06 

0.0 

0*0 

0.0 


0.0 

0.0 

0.0 

0.0 

0.0 

0.6665080-06 
0.0 
0.0 
0.0 ‘ 

0.0 

0.0 

3.0 

0.0 

0.3907760-06 
0.0 
0.0 
0.0 
3.0 
0. 0 
0.0 
o.n 

9.1626830-01 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0. 1562380-03 
0.0 
0.0 
0.0 
3.0 
0.0 
0.0 
0.0 

0.3217320-06 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.3217610-06 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

o.d 

0.3217680-06 

0.0 

0.0 

0.0 

0.0 

0*0 

0.0 

0.0 

0.3217370-06 

0.0 

0.0 

o.u 

0.0 

0.0 

0.0 

0.0 

0.1217500-06 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.3217670-06 

0.0 

0.0 


0.0 

0.0 

0.0 

0.0 

0.0 

3.0 

0.9063160-06 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.756'»06D-06 

0.0 

0.0 

0.0 

9.0 
0.0 
0.0 
0.0 

0.6339600-05 

n. o 

3.0 
0.0 
0.0 
0*0 

0.0 ' 

0.0 

0.6339600^05 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.6668R20-06 

0.0 

o. b 

0.0 

n. o 
0.0 
0.0 
0.0 

0.6670070-06 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

9.0 

0*6669670-06 

0.0 

0.0 

o. b 

0.0, 

0.0 

0.0 

0.0 

0.6668990-06 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.666959D-06 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.6669660-06 

0.0 


0.0 

0.0 

0.0 

0.9 

0.0 

O.t 

0.0 

0 . 8661661^-06 

O.n 

0.0 

0.0 

o.c- 

0.0 

O.J 

o.c 

0 . 7U169D-06 

0.0 

0.0 

0-q 

9.C 

c.o . 

0.0 

9.0 

0 . 3 / 56560-05 

0.0 

O.Q 

0.9 

0.9 

0.0 

0.0 

, 0.0 

0 . 3756560-05 

0.0 

0*0 

0.0 

0.0 

0.0 

0.0 

0.0 

0 . 6558370-06 

0.0 

0.0 

0.0 

0*0 

0.0 

0.0 

0.0 

0 . 6559620-06 

b.o 

0^0 

0.0 

O.U 

0 . 0 ^ 

0.0 

0.0 

0 . 6559020-06 
0.0 - . 

0.0 
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0. 1237460*06 
-0.1170430*06 
0.8427109*07 
0.7445599*05 
-0.9125010*05 
0. 1462320*06 
0.1047880*08 
0.1511290*06 
-0,5570750*07 
-0.4667840*00 
-0.1485530*06 
-0.4357210-09 
0.0 
0.0 
0.0 
0.0 • 

0.8028330*07 

0.0 

0.3669 .i0*05 

0.0 

-0.6250940*05 

0.0 

0.1799140*06 
0.2993780*06 
0.2844060*06 
-0.4012330*07 
-0.160236l)*06 
0.2364180*02 
0.2313469*02 
-0.8826 700*05 
0.6248770*05 
0.5950090*01 
0.8028260*07 
0.3669980*05 
-0.6250820*05 
0.1799230*06 
0.1496890*06 
0.284480D*Q6 


0.981252170*06 

0.2000000-05 


HIGHEST NATURAL FREQUENCY IRAD/SECI • 
DELTAT SHOULD OE EQUAL TO OR LESS THAN 


TIME STEP SUE USED IN PRUCRAN ISECI* 0.2000000-05 
FRAGMENT PROPERTIES 

NO. OF FRAGMENTS • 1 

EFFECTIVE LENGTH OF IMPACT CINI ON MAIN STRUCTURE ■ 0.4000000*00 


FRAG. NO. 

DIAMETER IlN) 
UUCHTlL8S-SEC4«2/iN. I 
MOMENT OF nERTIAl|N-L8-SEC«421 
CG Y COORDINATE I INI 

CG I CODROINATE (INI 

ANGULAR ROTATION tOECI 
VEL IN Y OIR I IN/SECI 
VEL IN Z DIR IIN/SEC) 

ANGULAR VEL lOEC^SECI 
COEFF OF restitution 
COEFF OF FRICTION 
INITIAL KINETIC ENERGY (IN-LBI 


I 

0.1000000*01 

0*3856100-03 

0.4820140-04 

0.6000000*01 

-0.2000000*01 

0.0 

0.2607960*04 

0.1482750*04 

0.0 

0 . 1000000*01 

0.0 

0.1735250*04 


THE TPRIN FOR EACH FRAGMENT IS: 0.9600000-03 

THE FDLLOtfING IS THE TIME SOLUTION OF THE FRAGMENT- RING IMPACT 

OUTPUT MILL BE PRINTED EVERY 20 CYCLES USINGOUTPUT OPTION 3. 

m:4CTI0N forces applied to the STRUCTURE WILL BE PRINTED AT EACH OUTPUT CYCLE 

FjR NODES AT WHICH BOUNDARY CONDITIONS ARE SPECIFIEU. D.O.P. THAI ARE 

N’JT RCSTRAINFO at that 'NOOE WILL HAVE A REACTION FORCE - 0.0. 

ALL IMPACTS WILL PE OESICHATCD AND ALL THE FRAGMENT ENERGIES WILL BE 
tISTCJ AFTER EACH IMPACT. 


0.0 

0.0 

0.2958680*06 
0.2P2854D»06 
■0«T60r800*06 
0.7581450*06 
0.7703310*06 
0.6528230*05 
■0.1253429*96 
0.6709170*06 
0. 1872690*07 
■0«462359D»06 
■0. 1053220*07 
0.1054960*07 
0.5483710*05 
0.1126130*06 
•0.2048250*06 
•0.5266940*06 
0.3681920*06 
■0.1768960*06 
0.4439199*05 
•0.8356130*05 
0.1994/89*06 
0.1248669*07 
•0.1316639*06 
•0.42651 10*06 
0.4782529*06 
0.1394600*05 
0.2692669*05 
'0.1267970*06 
•0.2926080*06 
0.1175000*06 
•0.122/319*06 
•0.1114150*08 
•0.5341379*07 
0.11072 50*07 
0.1460160*07 
0.0 
0.9 
0.9 
0.0 

•0.3615220*06 

0.0 

0.1202150*05 

0.0 

•0.8638510*05 

0.0 

-0.2944039*06 
0.1/99169*06 
-0.1602110*06 
0.3615219*06 
-0.17.52600*01 
0.6/02839*05 
0.6911040*06 
-0.1671840*05 
-0.3416270*06 
0.2160200*06 
-0.3615889*06 
0.1202080*05 
-0.8636990*05 
0.2844880*06 
0.1799209*06 
-0.1692400*06 
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*'■ 


ORIGINAL PAGE IS 
OF POOR QUALITY 

l«4PACr NO. 1 rtHE 0.966000D-01 DUAINI» CVCIE 4IA tLtn •) FKA6 I DISTANCE O.S2450$0»00 
F9AC 1 TC« 0.1}610»04 Af* 0.0 fOE* O.DAIOtOA FAAU 


CYCLE* 400 


ELEMENT 

SI STA 

t SO 

SI STA 

2 SO 

SI STA 

3 SO 

1 

0. 745344990-07 

-a.359105190-07 

0. 182975070-07 

0^631408750-07 * 

-0.219540070-06 

-0.265669860-07 


9.195119900-07 

0.0 

0.410691910-07 

0.0 

-0. I2305353D-06 

0.0 

2 

0. 102197430-06 

-0.326013440-06 

-0.207538010-08 

0.318998080-07 

-0.21I03042D-05 

-0. 124122880-05 


-0.UI90R00D-96 

0.0 

-0.87919052U-07 

0.0 

-0.167576650-05 

0.0 

3 

-0.183534090-05 

-0.256533550-05 

-0.334178260-05 

-0.324431060-05 

-0.104971150-04 

-0.961B2I7IO-05 


-O.22O033B2D-OS 

0.0 

-0.329404670-05 

0.0 

-0.100576660-04 

0.0 

4 

-0.161317880-04 

-0.155216840-04 

-0.249891560-04 

-0.244031370-04 

-0.136594800-04 

-0.530972620-04 


-0. 158267360-04 

0.0 

-0.24696147D-04 

0.0 

-0. 333783710-04 

0.0 

5 

-0. 369781860-04 

-0.85 7086970-04 

-0,100620180-03 

-0. 566479520-04 

-0. 155244890-03 

-0.252B0812D-04 


-0.613434410-04 

0.0 

-0.786140680-04 

0.0 

-0.902628490-04 

0.0 

6 

0.895781940-04 

-0.319850440-03 

-0.502057090-04 

0.92464174D-04 

-0.811191030-03 

-0. 160130950-03 


-0. U513602D-03 

0.0 

0.211292320-04 

0.0 

-0.485660990-03 

0.0 

7 

-0. 108974500-02 

0.108038380-02 

0.155107820-02 

-0.101595TSD-02 

0.425138420-02 

-0.262974110-02 


-0.46B05814D-05 

0.0 

0.267560340-03 

0.0 

0.810621540-03 

0.0 

8 

0.367231050-02 

-0.176848920-02 

0.535109870-03 

-0.159084050-03 

-0.159121270-02 

0. 199854450-02 


0.9SI910630-03 

0.0 

0*188012910-03 

0.0 

0.203655890-03 

0.0 

9 

-0.856897720-03 

0,742579720-03. 

-0.180499020-02 

0.258339260-02 

-0.48025834D-02 

0.203163630-02 


-0.571589980-04 

0.0 

0.36970I29D-03 

.0.0 

-0. 138547360-02 

0.0 

10 

-0.497182960-02 

0.533558140-02 

0. 187471600-02 

0.420631510-03 

0.4464Q963D-02 

-0.719054220-02 


0. 181875930-03 

0.0 

0.114767380-02 

0.0 

-0.136322290-02 

0.0 

11 

0.139695420-02 

-0. 446707640-04 

0.127879320-03 

-0.56976147D-03 

-0.109153140-03 

-0. 626113320-04 

12 

-0. 792280700-04 

0.179333620-03 

-0.160510460-03 

-0.975546610-04 

-O.ZB1206530-05 

-0.1354G190D-03 

13 

0.102498930-02 

0.331082270-03 

0.301454040-03 

0.1565104 80-03 

0.549219060-04 

0.46T841S10-03 


0.6F8735780-01 

0.0 

0.228982260-03 

0.0 

0. 261383510-03 

0.0 

14 

0.231568650-03 

0.451999670-04 

0. 151030770-03 

0.678323200-04 

0.442046070-04 

0.103344940-03 


0.138184310-03 

0.0 

0.119411550-03 

0.0 

0.737747740-04 

0.0 

15 

0.217202520-04 

0.316873130-04 

0.130365700-04 

0.153278610-04 

0. T6049830D-05 

0.209478830-05 


0.268037820-04 

0.0 

0.141822160-04 

0.0 

0.484998570-05 

0.0 

16 

0.128779560-05 

0.294499820-05 

-0.482574950-05 

-0. 447552720-05 

-0. 347866710-05 

-0.428336510-05 


0.211639690-05 

0.0 

-0.465063830-05 

0.0 

-0. 388102610-05 

0.0 

1 1 

-0.209853990-05 

-0.214252090-05 

-0.222618340-05 

-0.231502270-05 

-0.156088590-05 

-0.169924220-05 


-0.212053040-05 

0.0 

-0.227060300-05 

0.0 

-0.164006400-05 

0.0 

19 

-0,951493170-06 

-0.939695210-06 

-0.313318580-06 

-0.3049U620-06 

-0.432778660-06 

-0.442927360-06 


-0.945594190-06 

0.0 

-0.309115100-06 

0.0 

-0.437853020-06 

0.0 


CYCLE* 490 

SrSAIM AT ADUITIONAL POINTS 

1 

2 
J 


St 

-0.19^84 3900-02 
0.2432ITS9D-01 
0.12T879120-0) 
0.U96I916D-0I 
0.809179500-03 


SO 

0.262169550-02 

0.0 

-0.9697614Y0-03 

0.414207440-03 

0.0 


El 

0.197038020-02 

0.127871190-03 

0.119S4370D-02 


EO 

0.261022800-02 

-0.96992la70-03 

0.4141216*0-03 


EYCRCV ANO WORK AT THE END OF TIME CYCLE 490 
FRAGMENT KINETIC ENFRGV 

1 0.1361190404 


J* 490 TIME I SEC. I « 0.9800000-03 

HORK INPUT INTO RING CIN.-LO.I • 0. 3740940403 

RING KINETIC ENCRCY IIN.-LB.I • 0.346430D»03 

RING CLASTIC ENERGY tlN.-LB.) * O.22981B0»O2 

RING PLASTIC UORK IIN.-LB.I ■ 0.1773000*01 

ENERGY STORED V THE CLAS*^^C RESTRAINTS IIN.-LB.I 


TIME AFTER INITIAL IMPACT • 0.1400000-04 


I 

1 0. 

2 - 0 . 

3 -0, 

4 -0. 
9 -0. 
6 - 0 . 

7 -0. 

8 0 . 

9 0. 

10 -0 
U -0, 
12 0 

13 0 

14 -0 

15 -0. 

16 0 

17 0 

18 0 
1 * 0 


21330-07 
6142D-06 
9505D-05 
30300-04 
U 790-03 
3D8LU-0T 
61280-03 
97560-03 
39880-03 
46940-03 
,75940-04 
,0 

.12320-03 
.72780-05 
.48960-05 
.24490-09 
.64010-06 
.20120-06 
FAAC .m 


0.0 

-0.17180-07 
-0.14680-06 
-0. 74590-06 
-0.35170-05 
-0.19050-04 
-0.86310-06 
0.70890-03 
0. 23580-01 
0.3023U-01 
0.17110-03 
-0. 15510-04 
0.0 

0.32170-04 
0.23920-05 
O.T0920-06 
0.20590-06 
0.2202D-07 
-0.88060-08 
.« FCGU • 


FSI 
-0.51970- 
-0.2090D- 
-0.10950 
-0.14930 
-0.40410- 
-0.21340- 
-0.96430- 
0.14140 
0.18760 
-0.14990- 
-0.17 740 
0.17600 
0.0 

-0.530 i0• 
0.2Z790- 
0.26140- 
-0.81090- 
rO. 72810- 
-0. 10940- 


CHI 

07 0.17570-07 

06 -0.26430-06 

05 -0.27020-05 
05 -0.13370-04 
05 -0.36010-04 
03 -0.13100-01 
Oi -0.9521U-03 
01 0.29720-02 

01 -0.10000-02 

01 -0.42500-02 

02 0.11290-02 
0.14710-03 

-0.681 70-05 

03 0.19850-03 

04 0.27720-04 

05 0.49440-05 
96 -0.19250-05 

07 -0.12780-05 

06 -0.61190-06 
FCCtf ■ 


1-03 


0.869296l)«00 


COPY 

0.0 

0.10000*01 
0.20000*01 
0.30000*01 
0.40000*01 
0.50000*01 
0.60000*01 
0.70010*01 
0.80010*01 
0.90000*01 
0.10000*02 
0.10500*02 
0.11500*02 
0.10870*02 
0.11710*02 
0.12500*02 
0.13210*02 
0.13830*02 
0.14110*02 
ALFA « 


COFI 

0.0 

-0. 17180-07 
-0.14680-D6 
-0.74590-06 
-0.35170-05 
-0.1905D-D4 
-0.86310-96 
0.70890-03 
0.23580-01 
0.30230-01 
0.17130-01 
0.10000*01 
0.15000*01 
-0.75910-01 
-0.30150*00 
-0.66*190*00 
-0.11700*01 
-0.17860*01 
-0.25000*01 
FNUV « 


0.39560*00 
-0.46430*00 
-0.24010*02 
•0.16570*03 
•0.45030*03 
0.21410*03 
'0.22490*03 
0.45400*03 
0.35140*04 
0.31240*04 
•0.25640*04 
•0. 14980*04 
0.61830*01 
0.32690*03 
0.42320*02 
-0.11480*02 
-0.64760*01 
'0.90150*00 

FRHV < 


N STRAINIINI 

0.50330-01 0.37180-07 
-0.1U6D-01 -0.2396D-06 
-0.22190*01 -0.27060-05 
-0.14110*02 -0.13470-04 
-0.31270*02 -0.31230-04 
0.25450*02 -0. 10450-03 
-0.16290*03 -0.12270-02 
-0.59810*01 0.40120-02 

•0.31850*03 -0.11660-0? 
0.92510*02 -0.54731>-02 
-0.26990*03 0. I 7360-02 

0.24350*02 0.74760-04 


0.20090*02 

0.10890*0? 

0.16190*01 

-0.49430*00 

-0.25000*00 

-0.33350-01 


0.40580-04 

0.17450-03 

0.21030-04 

0.S102U-O5 

-0.18530-09 

-O.lZTCD-05 

•0.61160-06 


STRAINIOUn 
-C. 41250-07 
-0.1384D-06 
-0. 26900-05 
-0.13040-04 
-0.5034D-04 
-0.2106J-03 
-0.12260-03 
0.27020-03 
0.20250-0i 
-0.96950-04 
-0. 47520-03 
0.21940-03 
-0.5421U-04 
0.26510-03 
0. 47800-04 
0.18770-05 
-0.21380-05 
-0.12990-05 
-0. 62080-06 


1 

0.8555400*01 

-0.5605460*00 

0.0 

0.2607960*04 0.50641) 

REACTIONS 

AT NODE 


RVILBSI 


RWCLBSI 

RMUN-LBSI 


1 . 


-0.1355680*00 


0.5397B50-01 

0.0 


13 


-0.1035120*04 


-0.1746520*03 

0.7332470*02 

SUBSTRUCTURE 

NSTR 

CLE 

SURF 

STA 

TIME 


1 

0.5I155BO-O2 

10 

2 

1 

0.9000000-03 


2 

0.1396950-02 

11 

1 

1 

0.9800000-01 


INTERFACE 

O.i 147670-02 

10 

1 

2 

0.9800000-01 



supstructure 

I 

z 

INTERFACE 

SUBSTRUCTURE 


LARGEST AOO. FT. STRAIN 
0.26Z1660-02 
0.127B79U-03 
0.950 7210-03 


LARGEST 


MOOAL STRAIN 
0.401 1690-02 
0.2194030-03 


ELEN 

9 

U 

9 

NODE 

B 

12 


ADO. FT. 

1 

2 
1 

SURF 

1 

? 


TINE 

0.9800000-03 

0.9800000-03 

0.974000D-03 

TIMF 

0.9800000-03 

0.9800030-01 


SURFACE 

2 

1 

t 
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CYCLE* 51D 


ELEMENT 

SI STA 

1 SO 

SI STA 

2 SO 

St STA 3 

SO 

1 

0.897761000-03 

-0.970910970-04 

0.448355940-03 

0.196870180-03 

0.561830350' »4 

0.905020930-03 


0.402947950-03 

0.0 

0.322613060-03 

0.0 

0.280601530-03 

0.0 

2 

0.104556510-03 

0. 494133710-03 

0.47242025U-03 

0.362216260-03 

0.742118640-03 

0.160186270-03 


0.293345110-03 

0.0 

0. 617318250-03 

0.0 

0.451152490-01 

0.0 

3 

0.500674800-01 

0.418208600-03 

0.640971450-04 

0.522025440-03 

-0.653463480-04 

0.899642990-03 


0.459441700-01 

0.0 

0,293041290-03 

0.0 

0.417148320-03 

0.0 

4 

0.603063730-03 

0*103354280-03 

0. 112492060-02 

0.250075430-03 

0.992234620-03 

-0.231381890-03 


0. 353209010-03 

0.0 

0.687498000-03 

0.0 

0. 380426380-03 

0.0 

5 

0.862667280-04 

0.750335260-03 

-0.625281070-03 

0.701093240-03 

-0.839700090-03 

0.109837830-02 


0.418101000-03 

0.0 

0.379060830-04 

0.0 

0.129339090-03 

0.0 

6 

-0.345831260-03 

0.713624750-03 

0.634833210-03 

0.226694140-03 

0.147389420-02 

-0.285561200-03 


0. 183696 750-03 

0.0 

0.430763670-03 

0,0 

0. 594166480-03 

0.0 

7 

0.272142760-02 

-0. 825156510-03 

0.6165286RD-02 

-0. 289497190-02 

0.95 7738630-02 

-0.448030640-02 


0.948135670-03 

0.0 

0.163515750-02 

0.0 

0.254868990-02 

0.0 

8 

0.845347050-02 

-0.39530R59D-02 

0.195195620-02 

-0.455521970-03 

-0.334931750-02 

0* 327200140-02 


0.225019230-02 

0.0 

0.748217130-03 

0.0 

-0.38908040D-04 

0.0 

9 

-0. 505126660-02 

0.334192390-02 

-0.1233U19U-OI 

0.790299050-02 

-0. 188326960-01 

0.1IT74746D-01 


-0.854671340-03 

0.0 

-0.221408440-02 

0.0 

-0.352907500-02 

0.0 

10 

-0.9274B697D-02 

0.548190490-02 

0.693278960-02 

-0.168951000-02 

0.983667490-02 

-0.190088100-01 

-0. 18964624D-0Z 

0.0 

0.262163980-02 

0.0 

-0.458606740-02 

0.0 

11 

0.243962120-02 

-0.618205350-03 

0.910827260-03 

-0.1599I010D-02 

0.872202980-03 

-0.1119P271D-02 

12 

0.846351710-03 

-0.6)6271740-03 

0.361305250-03 

-0.566623900-03 

0.179203050-03 

-0.232031520-03 

13 

0.144069910-02 

0.100085730-02 

0.115627380-02 

0.318202830-03 

0.142085560-02 

0. 191883450-03 

3,122387820-02 

0.0 

0. 737238290-03 

0.0 

0.806369550-03 

0.0 

14 

0. 14R40769U-02 

0.247593860-03 

0. 102 36179D-02 

0.363800010-03 

0.519883080-03 

0.432719400-03 

0.865B3536D-03 

0.0 

0.693708980-03 

0.0 

0.4T630124D-03 

0.0 

15 

0.212724630-03 

0.788298490-03 

0.794557850-03 

0.478876440-03 

0.457215020-03 

0.252656660-03 

0.500511560-03 

0.0 

0. 3867U15D-03 

0.0 

0.354935640-03 

0.0 

16 

0.355352890-03 

0. 364553340-03 

0.747896790-03 

0.239474600-03 

0. 143430300-03 

0.321879170-03 


0.359953110-03 

0.0 

0.193485690-03 

0.0 

0.232654740-03 

0.0 

17 

0.264804140-03 

0. 155354430-04 

O.U772163D-03 

O.U64600ID-03 

-0.65549908D-04 

0. 184484970-03 

0.140169790-03- 

0.0 

0.118090820-03 

0.0 

0. 594675310-04 

0.0 

18 

-0.423154040-04 

0.992154970-04 

0.180794170-03 

-0.587399620-04 

0.423739760-03 

-0.197611950-03 

0.284500^0-0^ 

0.0 

0.61029296D-Q4 

0.0 

0.113063910-03 

0.0 


CYCLE* 510 

STRAIN AT ADDITIONAL POINTS 
1 

2 

3 


S! 

>0.129A9126D>01 

-0.26'J52T9«0-02 

0.910027260-03 

0.i53l95R60-02 

0.13AAA9250-02 


SO 

0.614090360-02 

0.0 

-0.159910100-02 
0. 115702630-07 
0.0 


El 

-0.130340TOD-01 

0.910412830-03 

0.153078700-02 


ro 

0.810803350-02 

-0.160038160-02 

0.115635770-02 


E'JERGY AHO WORK AT THE ENO OP TIME CYCLE 510 
FRAGMENT KINETIC ENERGY 

1 0.1361190»04 


J* 510 TIME ISEC.) * 0.102000D-02 TIME AFTER INITIAL IMPACT 

WORK INPUT INTO RING IIN.-LB.I ■ 0.1740560*03 

RING KINETIC ENERGY IIN.-LR.) • 0.219816D*03 

RING CLASTIC ENERGY UN.-LB.I • 0.8758990*02 

RING PLASTIC MARK (IN.-LB.l • 0. 5T6374Dv<;2 

ENERGY STDREO IN THE ELASTIC RESTRAINTS (IN.-LB.l ■ 0.9010860*01 


0.5400000-04 


[ 

V 

H 

PSI 


CHI 

COPY 

COPZ 

L 

M 

STRAINIfN) 

$TRAIN<OUri 

1 

0.0 

0.0 

-0.82770-03 

0.73600-03 

0.0 

0.0 

0.24780*04 

0.22480*03 

0.88810-03 

0.28220-03 

2 

0.39860-93 

0.13460-03 

0.39490 

-04 

0.11420-03 

0.10000*01 

0.13460-03 

0.31910*04 

0.30430*03 

0.400t0-04 

0.33650-03 

3 

O.BiBOD-03 

-0.11410-04 

0.44770' 

-03 

0. 62350-03 

0.20010*01 ' 

-0.11410-04 

0*25520*04 

0.29460*03 

0.68380-03 

0.44380-03 

6 

0.10790-02 

-0.16650-04 

-0.13840 

-02 

0.23060-03 

0,30010*01 ■ 

-0.16650-04 

0.39090*04 

0.24160*03 

0.16650-03 

0.36670-03 

5 

0.18050-02 

0.13500-03 

0.24200 

-02 

0.49810-03 

0.40020*01 

0.13500-03 

0.12260*04 

0.21300*03 

0.55460-0) 

0.34020-03 

6 

0.16440-02 

0.99340-04 

-0.36960 

-02 ' 

•0.28820-03 

0.50020*01 

0.99340-94 

0*21180*04 

0.12010*03 

-0.50650-03 

0.39730-03 

7 

0.21 3SU-02 

-0.43380-02 

-0.17480 

-02 

0.11590-02 

0.60020*01 -0.43)80-02 

0.26430*04 

-0.35770*03 

0.14090-02 

0.41540-03 

s 

0.57740-02 

0.13390-01 

O.51550 

-01 

0.55040-02 

0.70060*01 

0.13390-01 

0.19970*04 

0.28060*01 

0. 87800-02 

0.10520-02 

9 

. 0.46890-02 

0.86430-01 

0.67600 

-01 ' 

'0.46630-02 

0.80050*01 

0.S643D-0L 

0.22710*04 

0.62340*03 

-0.32460-02 

0.18680-03 

10 

-0.36110-02 

0.96580-01 

-0.68050 

-01 - 

'0. 15090-01 

0.89960*01 

0.96580-01 

0.47210*04 

0.41410*01 

-0.14570-01 

-0. 68960-03 

11 

-0.79730-02 

0.38920-02 

-0.96650 

-02 

0.14840-02 

0.99930*01 

0. 389 30-02 

-0. 39940*04 

-0.97100*03 

0.2H1SD-02 

-0.19280-02 

12 

0.68990-03 

0.88290-03 

-0.2650D 

-02 

0.21040-03 

0.10500*02 

0.10010*01 

-0.10750*04 

-0.36670*03 

0.6492D-Q3 

-0,22130-0.3 

1 3 

0.0 

0.0 

0.0 


0.4242D-Q4 

0.11500*02 

0.15000*01 

0.18580*04 

0.52310*02 

0.10620-03 

-0.21340-04 

16 

-0. 61040-02 

-0.31690-02 

-0.23690 

-02 

0.12770-02 

0. 10860*02 

-0. 70020-01 

0.17950*04 

0.53510*02 

0.14520-02 

0,76540-03 

18 

-0.47780-02 

-0.2715D-02 

0.33990 

-02 

0.35640-03 

o.urop*o2 

-0.30250*00 

0.11970*04 

0.48?ID»02 

0.31620-03 

0.50840-03 

16 

-0.40810-02 

-0.18650-02 

0.17850 

-02 

0.45150-03 

0.12500*02 

-0.6694U*00 

0.59940*03 

0.24120*02 

0.4739D-03 

0.39110-03 

IT 

-0.36270-02 

-0.11900-02 

0.9746D 

-03 

0.22810-03 

0.13210*02 

-0.11680*01 

0.34580*03 

0.12670*02 

0.2360D-0) 

0.20660-03 

18 

-3. 33820-02 

-0.5391D-03 

0.96990 

-03 • 

•0.5372U-04 

0.13830*02 

-0.17840*01 

0.93180*02 

-0.13350*01 

-0.69160-04 

0.54520-04 

19 

-0.32000-02 

0,17390-04 

0.30620 

-02 

0.32350-03 

0.14330*02 

-0.24970*01 

• 


0.41980-03 

0.53550-04 


FRAG NO 

.* FCCU • 


FCCtf ■ 

ALFA » 

FRUY ■ 

FRWtf ■ FRAY ■ 



1 

0.8660120*01 -0. 

5402090*00 0.0 


0.2607960*04 0.5084110*03 0.0 




REACTIONS 

AT NODE 


RViLBS) 

RUILBSI 

RmiN-LSSI 






1 

-0. 

2524030*04 

-0.3439000*03 0. 

.0 






13 

-0. 

5628110*03 

0.4796540*03 0< 

,9871970*02 




SuBST.HUCrURE 

MSTR 

ELC 

SURF STA 

TIME 







1 

0.U7747O-01 

9 

2 

3 

0.1020000 

-02 






2 

0.2574200-02 

11 

1 

1 

0.1014000 

-02 





interface 

0.3092560-02 

10 

1 

2 

0.1006000 

-02 





SUBSTRUCTURE 

LARGEST ADD 

. PT. STRAIN 

ELEN 

ADD. PT* 

TIME 

SURFACE 




SUBSTRUCTURE 

1 

2 


0.8140900-02 9 ' 1 0*1020000-02 

0.929835U-03 11 2 0.1018000-02 

0.1344490-02 13 3 0.1020000-02 

LARGEST NODAL STRAIN NODE SURF TIME 

0.B7B026U-02 8 1 O.lOZOOOD-02 

0.649213U-03 12 1 0*1020000-02 
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ORIGINAL PAGE IS 
OF POOR QUALITY 


CVCLC- 5)0 


element 

SI STA 

1 SO 

SI S7A 

2 SO 

SI STA 3 


1 

0.144746560-02 

-0.198466900-0) 

0.12594 7750-02 

-0. 109427190-03 

0.120616900-02 

0. 103676560-0) 


0.625499)70-03 

0.0 

0.575025150-03 

0.0 

0.654922770-03 

0.0 

2 

0.139)61400-02 

-0.196865110-03 

0.102259710-02 

0.32749766D-0) 

0.2)6557280-03 

0.)0i00784D-01 


0«5.9a37446D-9) 

0.0 

0.6T50474ID-OS 

0.0 

0* .112282560-03 

0.0 

3 

-0.4T249I2 70-03 

0.11)813220-02 

-0.229206360-0) 

0.505654040-03 

0.549054160-03 

0,459419320-0) 


0.3)2817450-03 

0.0 

0.DR22264U-03 

0.0 

0*504216740-03 

0.0 

4 

0.119539430-02 

-0.411774050-03 

0.467715830-0) 

0.441906400-03 

-0.742291410-0) 

0.710261300-0) 


3.391005120-03 

0.0 

0.454811120-03 

0.0 

-0.160150590-04 

0.0 

5 

-0.159744260-02 

0.165701260-02 

-0.141096600-02 

0. 114844020-02 

-0.879374970-03 

0.102697)30-02 


0.3018500)0-04 

0.0 

-0.1)1262890-03 

0.0 

0.737991450-04 

0.0 

6 

0.678405900-03 

-0.121713130-0) 

0.406795240-02 

-0.205192270-02 

0.698540460-02 

-0.401791690-02 


0.278346390-0) 

0.0 

0.100901490-02 

0.0 

0*148374380-02 

0.0 

7 

0.753107120-02 

-0*436877240-02 

0.665727660-02 

-0.403418070-02 

0.642942380-02 

-0.349828270-02 


C. 158114940-02 

0.0 

0.141154600-02 

0«0 

0*146557060-02 

0.0 

8 

0.47)769810-07 

-0.295883000-02 

-0. 120227690-02 

' 0.299009320-0) 

-0.683457010-02 

0.295361680-02 


0.889434050-03 

0.0 

-0.45163)780-03 

0.0 

-0.1940476TD-02 

0.0 

9 

-0. 102079650-31 

0.560804040-02 

-0. 174272900-01 

0.851561430-02 

-0.210830230-01 

0. 126964770-01 


-0.219996220-02 

0.0 

-0.44558)790-02 

0.0 

-0.459327280-02 

0.0 

10 

-3.879232120-02 

0.299492170-02 

0.81174464D-02 

-0.397795520-02 

0.100529940-01 

-0. 226620450-01 


-0.2893699HO-32 

0.0 

0.206974560-02 

0.0 

-0.630452530-02 

0.0 

11 

0« 131002090-02 

-0.540359530-03 

0.62276U80-0) 

-O.U9040630-02 

0* 100924920-02 

-0. 115674720-02 

12 

0.1)3074270-02 

-0.124831520-02 

O.1767B0B2O-O2 

^0.184078430-02 

0.231391230-02 

-0.2360)5480-02 

1) 

-0.298791100-03 

0.130036530-02 

-0. 656256480-03 

-0.667110210-03 

0.968194610-0) 

-0.690660380-01 


0.5407B5Q8D-03 

0.0 

-0.6616S334D-0) 

0.0 

0.138767110-03 

0.0 

14 

0.222974700-02 

-0.201779640-02 

0.I3952115D-02 

-0.127281560-02 

0.196316160-03 

-0.7095)3460-03 


0,1059751)0-03 

0.0 

0.611978290-04 

0.0 

-0.156608650-03 

0.0 

15 

-0.1)7019680-03 

-0.)96210S6D-0) 

-0.333956570-03 

-0.237709320-03 

-0.527193590-03 

-0.747670270-04 


-0.266615120-03 

0.0 

-0.285')3295»-03 

0.0 

-0.300981310-03 

0.0 

16 

-0. 522820290-03 

-0.86005457D-04 

-0.158578110-01 

-0.123248200-03 

-0.204366410-0) 

-0.169718900-03 


-0.304412880-03 

0.0 

-0.240913150-03 

0.0 

-0.187042710-03 

0.0 

17 

-0.101442040-03 

-0.213111490-03 

-0.366254140-04 

-0.167799810-03 

-0. 416656690-04 

-0.194374900-03 


-0.157276770-03 

0.0 

-0.102212610-03 

0.0 

-0.118030390-03 

0.0 

18 

-0.129957440-03 

0.566119580-05 

-0.128181420-03 

0.328010070-05 

-0.1Z196Z41D-03 

0.644565630-05 


-0.621481210-04 

0.0 

-0.625506590-04 

0.0 

-0.577583780-04 

0.0 


CYCLE* 53d 

S7KA1M AT AODirtONAL POINTS Si 

1 •0.lT<4686«00>01 
-0.S007682AO-02 

2 0.822781100-03 

3 -0.78AA5500D-0A 

0.199112280-03 


sn 

0.868935410-02 

0.0 

••0.1190406)0-02 

0.187807010-02 

0.0 


£I 

-0.181330440-01 

0.822442970-03 

-0.7864860ID-04 


EO 

0.865192620-02 

-O.llOtU'J 70-02 
0.187630980-02 


E^iCftCV AND MOAR AT THE END OF TINE CYCLE 530 
FRASHENT KINETIC ENERGY 

I 0.l36tt9D»04 


J« 530 TIME I SEC. I « 0.1060000-02 

mORK input into ring IIN.-LB.) » 0.374094D»03 

RING KINETIC ENERGY flN.-LB.) ■ 0.161234DP03 

RING ELASTIC ENERGY IIN.-LS.) * 0.918047D»02 

RING PLASTIC WORK IIN.-LB.l - 0. 105S520«>03 

ENERGY STORED IN THE ELASTIC RESTRAINTS (IN.-LB.I 


TIME AFTER INITIAL IMPACT - 0.9400000-04 


0«t54641D*02 


1 

V 

N 

PSI 

CHI 

COPY 

1 

0.0 

0.0 

-0. 46020-02 

0.10660-02 

0.0 

2 

0.95070-03 

-0.21470-02 

0*36420-04 

0. 95880-03 

0.10010*01 

3 

0. 16760-02 

-0.14270-03 

0.26130-02 

0.23380-04 

0.20020*01 

4 

0.17640-02 

0.2BR3U-03 

-0.32660-03 

0.79540-03 

0.30020*01 

5 

0.210)0-02 

0.14460-02 

-0.21440-0) 

-0.71840-03 

0.40020*01 

6 

0.14010-02 

-0.54540-02 

-0.12400-01 

-0.30770-03 

0.50010*01 

? 

0.37840-02 

-0.78110-02 

0.19810-01 

0.45280-02 

0.60040*01 

8 

0. 64330-02 

0.44650-01 

0.6)880-01 

0.40610-03 

0.70060*01 

9 

0.14040-02 

0.13620*00 

0.7)870-01 

-0.80620-02 

0.80010*01 

10 

-0.10660-01 

0.12820*00 

-0.12570*00 

-0.20310-01 

0.89890*01 

11 

-0.16960-01 

0.12200-01 

-0.15740-01 

0.54770-03 

0.99830*01 

12 

0,38370-02 

o.sbsao -02 

-O.lOUO-Ol 

0.32610-04 

0.10500*02 

11 

0.0 

0.0 

0.0 

0.17220-04 

0.11500*02 

14 

-0.17650-01 

-0.72640-02 

-0.15740-01 

0.12170-02 

0.10850*02 

15 

-3.15170-01 

-o.imo -01 

0.75830-02 

-0.I866D-03 

0.11690*02 

16 

-0.13910-01 

-0.67970-02 

0.67410-02 

-0.47790-03 

0.12480*02 

17 

-0.132)0-01 

-0.45000-02 

0.46860-02 

-0.17170-0) 

0.13230*02 

18 

-0.12720-01 

-0.22100-02 

0.58350-02 

-0.11250-0) 

0.13820*02 

19 

-0.12650-01 

0.1673D-0) 

0.46H50-02 

-0.98120-04 

0.14320*02 


FRAG NO. 

.» FCCU a 

FCGH « 

ALFA « 


CUP2 

0.0 

-0.21470-02 
-0.14270-03 
O.2803D-O3 
0.14460-02 
-0.54540-92 
-0.78110-02 
0.44650-01 
0.n62D^00 
0.1282IU00 
0.12280-01 
0.10060*01 
0.15000*01 
-0.80050-01 
-0.30680*00 
-0.66800*00 
-0.11650*01 
-0.17780*01 
-0.24890*01 
FRUV « 


L 

0.34640*04 
0.46640*04 
0. iri66D*04 
0.30400*04 
0.11100*04 
0.14590*04 
•0.1<;640*03 
•0.11790*04 
•0.27840*04 
0.14500*04 
•0.21330*04 
■0.46940*03 
•0.19400*04 
•0. 77210*03 
•0.802 1D*0J 
•0.62100*3 3 
■0.34560*03 
•0. 13610*03 

FRWV > 


M 

0.14280*03 

0.36670*03 

0.24690*03 

0.25720*03 

0.31280*03 

-0.33970*03 

-0.58560*03 

0.19100*01 

0.31800*0) 

-0.20580*03 

-0.77880*03 

-0.1)990*04 

-0.72360*02 

-0.82180*02 

-0,27890*02 

-0.18100*02 

-0.15490*02 

-0.24220*01 


STRAINIINI 
0.1)140-02 
0.11400-02 
-0.11470-03 
0.9A62D-03 
-0.10510-02 
-0.39040-03 
0.62690-02 
n.51880-02 
-0.685HD-02 
-0.15730-01 
0.18400-02 
0.65500-03 
0.12560-02 
0.17690-02 
-0.94300-04 
-0.52000-03 
-0.15260-0) 
-0.94020-04 
-0. 10)10-01 


STRAINIOUTI 
0.44850-03 
0.41700-03 
0.45120-03 
0.34450-03 
0.28110-03 
0.24820-03 
0.13280-03 
0. 1)820-03 
-0.62970-03 
-0.16860-02 
-0.26050-02 
-0.47750-0) 
-0.12220-02 
0.58510-04 
-0.34850-03 
-0.2579U-0) 
-0. 18510-03 
-0.996)0-04 
-0.39290-04 


1 0.8764440*01 -0.5198730*00 0.0 


0.2607960*04 0.5084110*03 0.0 


REACTIONS 

AT NODE 

RVIL8SI 


RHILBSI RMl IN-LBS) 



1 

-0.3444130*04 

-0.1968940*03 0.0 



13 

-0.2568090*03 

-e.>?2S828D*03 ^ 0.1917300*04 


SUBSTRUCTURE 

NSTR 

ELC SURF 

STA 

TIME 


t 

0.1272410-01 

9 2 

.3 

0.105BO 00-02 


2 

0.2S7420D-02 

11 1 

1 

0. 1014000-02 


INTERFACE 

0.3092540-02 

10 1 

2 

0.1006000-02 


SUBSTRUCTURE 

LARGEST AUO 

. PT. STRAIN 

ELEN 

AOO. PT. TINE SURFACE 

1 

0. 

9072270-02 

9 

1 0.1046000-02 

2 

2 

0 . 

1034440-02 

11 

2 Q.1042000-02 

1 

INTERFACE 

0. 

1147000-02 

13 

3 0.1022000-02 

1 

SUBSTRUCTURE 

LARGEST NODAL STRAIN 

NODE 

SURF TINE 


1 

0. 

8811460-02 

8 

1 0.1022030-02 


2 

0. 

12562TU-02 

13 

1 0.106000D-02 
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06Z 


CVCLF« 

550 






flEMCNT 

SI STA 

1 SO 

Sf STA 

2 SO 

$1 STA 1 

SO 

1 

-0.291988690-02 

0.721516550-03 

-0. 149766530-02 

-0*198459690-03 

-0.4597679)0-09 

*0.927529270-03 


-0. 1099US2D-02 

0.0 

-0.848062490-03 

0.0 

-0.46606)470-0) 

0.0 

2 

0.662566620-03 

-0.139971570-02 

0. 114926570-02 

-0.154085220-02 

0*153467060-02 

-0.172507460*02 


-0.358574540-03 

0.0 

*0.195793240-03 

0*0 

-0.9520187)0-04 

0.0 

3 

0. 108738850-02 

-0.146495970-02 

-0.890253040-03 

-0.161670860-03 

-0.286)15110-02 

0.947802900-03 


-0.188785570-03 

0.0 

-0. 525961950-03 

0.0 

-0.957674090-0) 

0.0 

4 

*0.329355990-02 

0.125273350-02 

-0. 284384230-02 

0.100258840-02 

-0.255599760-02 

0.627733690-03 


-0. 102041320-02 

0.0 

-0.920626950-03 

0.0 

-0.964131940-03 

0.0 

5 

-0.207901670-02 

0.527405800-03 

0.238786670*03 

-0.119900940-02 

0.276682010-02 

-0.242368810-02 


-0.775805370*03 

0.0 

-0.480111380-03 

0.0 

0.171566010-0) 

0.0 

6 

0.447664220-02 

-0.370698070-02 

0.633716200-02 

-0.458489950-02 

0.795670680-02 

-0.545437)20-02 


0. 384830750-03 

0.0 

0.876131250*03 

0.0 

0.125116680-02 

0.0 

7 

0.740533380-02 

-0.518525480-02 

0.491)14820*02 

, -0.351084330*02 

0.289053760-02 

-0.162306990*02 


0.115328950-0? 

0.0 

0.701152480*03 

0.0 

0.633733870-03 

0.0 

8 

0.118164020*02 

-0.100734540-02 

-0.446193970-02 

0.244720040-02 

-0. 100242220-01 

0.505482660-02 


0.872474080*04 

0.0 

-0.100732960-02 

0.0 

-0.248469780-02 

0.0 

9 

-0.123147830-01 

0.676201510-02 

-0.165039250-01 

0.845466190-02 

-0.188411250-01 

0.111704070-01 


-O.27763R30O-O2 

0.0 

-0.402463150*02 

0.0 

-0.1835319Q0--02 

0.0 

10 

-0.679902720-02 

0.233424920-02 

0.867838080-02 

-0.404202020-02 

0.986632610*0:' 

-0.216952870-01 


-0.223278900-02 

0.0 

0.231818030-02 

0.0 

-0.590448060-02 

0.0 

u 

0.112191340-02 

-0.4)9846170-03 

0.833741250-03 

-0.126371020-02 

0. 123085390- 02 

^0. 144229020*02 

12 

0. 180863860*02 

-0.175976300-02 

0.288519060*02 

-0.298198720-02 

0.406115460-02 

*0.410479950-02 

13 

0.707004460-03 

-0.130709120-03 

0.277)41030-03 

-0.280661070*04 

0.134402570-04 

0.241540650-01 


0.2881476 70-03 

0.0 

0.124637460-03 

0.0 

0.127490450-03 

0.0 

14 

0.476423600*03 

-0.466010870-04 

0. 166945600-02 

*0.694565110*03 

0.28119)430*02 

*0. 140469970-02 


0.214911250-03 

0.0 

0.487445440-03 

0.0 

' 0.703617330-03 

0.0 

15 

0.265318990-02 

*0.123905950-02 

0.121621160-02 

-0.377383800-03 

*0.222817410-03 

0.476223870-03 


0.707065200-03 

0.0 

0.419413900-03 

0.0 

0.126703230*03 

0.0 

16 

-3.679799390-03 

0.755240590-03 

-0. 357796470-03 

0.5402153 80-Oa 

*0.146024200*04 

0.350)40300-03 


0.377205970-04 

0.0 

0.912094570-04 

0*0 

0.167860940*03 

0.0 

17 

0. 175721950-03 

0.134133870-03 

0. 184433150-03 

0.134305610*03 

0. 165655970-03 

0.106U7910-03 


0.154927910-03 

0.0 

0.159369380-03 

0*0 

0.135921940*03 

0.0 

L8 

0.141613040-03 

0.271337850-04 

0.575053510-04 

0.340203120*04 

0.423515510*05 

0. 723051810-04 

CYCLE- 

0.843734110-04 

550 

0.0 

0.457628310*04 

0*0 

0.382701680-04 

0.0 


STRAIN AT ADDITIONAL POINTS 
1 


SI 

-0.16A115>)ZD-OL 

-0.A4^72170A0-02 

0.81I7A1250-0J 

o.aoio44f>3o-oa 

0.33V20AA6D-09 


• SO 
0.856B02I50-02 
0.0 

•0.128171020-02 

-0.12268431D-03 

0.0 


El 

-0*169S5924CH01 


0« 893399970*03 
0.8007734l0"r}3 


CO 

0«059162720*02 


*0.126493S20'02 

*0.122691840*03 


EnERCV and work at the ENO op time CVCLE 590 


PRAOHENT 

I 


KINETIC ENERGY 
0.136119D^04 


Ja 553 TIME I SEC. I - O.llOOOOD-02 TIME AFTER INITIAL IMPACT - 

WORK 1N{*UT INTO RING IIN.-LB.) • 0«374094D»03 

RING KINETIC ENERGY I IN. -LB. I - 0«12I6090»03 

RING ELASTIC ENERGY I IN. -LB. I * 0.116I160»03 

RING PLASTIC WORK (IN. -LB. I • 0.1169170»03 

ENERGY STORED IN THE ELASTIC RESTRAINTS KN.-LB.I • 0.1941240^92 


0*1340000-03 


1 

V 

W 

PSl 

CHI 

COPY 

CGP2 

L 

N 

STRAINUN) 

STRAIN(OUT) 

1 

0.0 

0.0 

0.3634D-03 

-0.22330-02 

0.0 

0.0 

*0.58,530404 

-0.41220403 

-0.27740-02 

-0.6DL0D-03 

2 

-0.11530-02 

-0.35440-02 

-0.41170-02 

0.47010-04 

0.99800400 

-0*35440-02 

-0.41360404 

*0.80830403 

0.27000-03 

-0.59050-03 

3 

-0.70070-03 

-0*32100-02 

0.564 70-02 

0.76130-03 

0.19990401 

-0.32100-02 

-0.31980404 

*0.20600403 

0.12140-02 

-0.52680-03 

4 

-0.14490-02 

0.39380-02 

0.29320-02 

-0.22700-02 

0.29990401 

0.39380-02 

-0.30420404 

0.14760403 

-0.28520-02 

-0.49520-03 

5 

-0.34040-02 

-0.20080-02 

-0. 13790-01 

-0. 18520-02 

0.39970401 

*0.20080-02 

-0.40270404 

-0.44150403 

-0.21830-02 

-0.47390-03 

b 

-0.35550*02 

-0.16420-01 

-0. 69450-02 

0.19750-02 

0.49960401 

*0.16420*01 

-0.25910404 

-0.96610403 

0.28490-02 

-0.54300-03 

7 

-0.30990-03 

0.19090-02 

0.5054D-01 

0.36420-02 

0.60000401 

0.19090-02 

-0.22350404 

-0.5715D403 

0.66790-02 

-0.33540-03 

8 

-0. 67950-03 

0.61900-01 

0.10010>00 

-di.)5300-02 

0.69O9DI01 

0.81900*01 

-0.7264D403 

0.27100403 

0.20130-02 

-0.99360-04 

9 

-0.7&33D-02 

0.17190400 

0.54030*01 

-0.85510-02 

0.79920401 

0.17190400 

*0. 1295D404 

0.31330403 

-0. 92110-02 

-0.58780*03 

10 

-0.19530*01 

0. 1414U400 

-D.n800»00 

-0.2033D-01 

O.B9R0D401 

0.14140400 

0.18470494 

*0.19590403 

-0.13570-01 

-0. 17230-02 

11 

-0.25960-01 

0.19700-01 

-0.22320-01 

0.38490-03 

0.9974D401 

0.19700-01 

-0.26110404 

-0.01920403 

0.19240-0? 

-0.30620-02 

12 

0. 64980-02 

0. B51RO-02 

-0.16400-01 

-0.7610D-04 

0.10500402 

0.10100401 

-0.56170403 

-0.2270D404 

0.77520-03 

-0. 65840-03 

13 

0.0 

0.0 

0.0 

0.12240-04 

0.11500402 

0.15000401 

0.25580403 

0.33920401 

0.22210-02 

-0. 21960-02 

14 

-0.27400-01 

-0.24490-02 

-0.l966D-0i 

-0. 14760-03 

0.10840402 

-0.73620-01 

0.58350403 

-0.25680402 

0.2100D-Q4 

0.11950-03 

15 

-0.24490-01 

-0.18210-01 

0. 10030-02 

0.20310-02 

0.1168D402 

*0.31030400 

0.65910403 

-0.742BD401 

0.26160-02 

0.28580-03 

16 

-0.21080-01 

-0.11420-01 

0.14920-01 

-0.49BID-03 

0.12480402 

-0.66920400 

0.58700403 

0.39820402 

-0.57150-03 

0.16780-03 

17 

-0.19790-01 

-0.62620-02 

0.70790-02 

0. 13290-03 

0.13190402 

-0.116204Q1 

0.44850403 

0.L567D402 

0. 14720-03 

0.19000-03 

IB 

-0.18830-01 

-0.32690-02 

0.75UD-02 

0. 11150-03 

0.1382D402 

-0.17740401 

0*1255040) 

0.41970401 

0.15240-03 

0.10160-03 

19 

-0.1B540-01 

0.2803D-03 

0 '7220-02 

-0.14620-04 

0.1432D402 

*0.24840401 



0,33430-05 

0.50750-04 


FRAG NO 

.- FCCU ^ 

■ FCGW • 

ALFA s 

FRUV a 

FRHV • 

■ FRAV a 



0*8a66760»0l -0.4995360«00 0*0 


0.2607960«^04 0.50841 lO^OS 0.0 


REACTIONS AT NODE 
13 


RtfILBS) 
0.5643400«OA 
-0. 3693740403 


RW(LBS) 

0.0346790403 

-0.2050520404 


RKIIN-IBS) 

0.0 

0.3417510404 


SUBSTRUCTURE 

MSTR 

ELE SURF 

STA 

TIME 


1 

0.1272410 

-01 9 2 

3 

0.1058000-02 


2 

0.40611SD 

-02 12 1 

3 

O.llOOQOO-02 


INTERFACE 

0.3092S6D 

-02 10 I 

2 

0.1006000-02 


SUBSTRUCTURE 

LARGEST . 

AOO* PT* STRAIN 

ELEM 

ADD. PT. TIME 

SURFACE 

1 


0.9072270-02 

9 

1 0.1046000-02 

2 

2 


0.1034640-02 

11 

2 0.1042000-02 

1 

INTERFACE 


0.1)47000-02 

13 

3 0.1022000-02 

t 

SJRSTRUCTURE 

LARGEST 

NODAL STRAIN 

NODE 

SURF riME 


1 


0.881 166U-02 

6 

1 0.1022000-02 


2 


0.2220960-02 

13 

' 1 0.1100090-02 



290 




6 ’ 



CYCtC- 5fO 


ILCHENT 

SI STA 

1 SO 

SI S7A 

2 SU 

SI STA 3 

SO 

1 

-0. 17510452U-32 

0.379219320-03 

-0.9874746TU-OI 

-0.U9B2244D-03 

-0.214097590-01 

-0.544568S40-OT 


-0.680912940-03 

0.0 

-0.553648550-0J 

0.0 

-0. 379333210-03 

0.0 

2 

0.551624230-04 

-0. 7806R910D-01 

-0,440136770-04 

-0.666386730-03 

-0.217720110-03 

-0.615971940-01 


-0.362763340-03 

0.0 

-0.355600200-03 

0.0 

-0.426846030-03 

0.0 

3 

-0.57275<;32D-03 

-0.416518990-03 

-0.155304220-02 

0.163615630-03 

-0.255263900-02 

0.627452730-01 


-0.4946T766D-03 

0.0 

-0.694713300-03 

0.0 

-0,962593120-01 

0.0 

4 

-0.285966550-02 

0.934647460-03 

-0.234 79183U-02 

0.410443530-03 

-0.166705180-02 

0. 116807990-01 


-0.962509020-03 

0.0 

-0.968737400-03 

0.0 

-0.775122910-03 

0.0 

5 

-0.313522270-03 

-0.862357810-03 

0.284700460-02 

-0.273471550-02 

0.579322780-02 

-0. 445129910-02 


-0.590440040-03 

0.0 

0.561445200-04 

0.0 

0.66996426U-01 

0.0 

6 

0. 719550970-02 

-0.596892740-02 

0, 72B7T427D-02 

-0.554712040-02 

0. 700462490-02 

-0,543549070-02 


0.613291130-03 

0.0 

0.870311130-03 

0.0 

0.759567110-01 

0.0 

7 

0.5<»1951890-02 

-0.448627240-02 

0.185555960-02 

-0.243598890-02 

-0. 968358140-01 

-0. 1 17945390-01 


0.466623240-03 

0.0 

-0.790214650-03 

0.0 

-0.543151770-01 

0.0 

6 

-0, 265830620-02 

0.54U55730-03 

-0.762991160-02 

0.3U21350D-02 

-0. U232636D-01 

0. 538954400-02 


-0. 105HS7520-02 

0.0 

-0.222398830-02 

0.0 

-0.342154570-02 

0.0 

9 

-0.132934460-01 

0. 597222680-02 

-0,152570110-01 

0.714489550-02 

-0.161726800-01 

0.866261200-02 


-0. 366061060-02 

0,0 

-0. 405605750-02 

0.0 

-0. 185503380-02 

0.0 

10 

-J. 610049920-02 

0.154228330-02 

0.796496610-02 

-0.400046360-02 

0.925409920-02 

-0,211161040-01 


-0.227910790-02 

0.0 

0.158224120-02 

0.0 

-0.593l04220-r’ 

0.0 

11 

0.94:040640-03 

-0.354261210-03 

0.122851120-02 

-0.147706380-02 

0.2032623TO-U2 

-0.20H202490-02 

12 

0.26lt/333l0-02 

-0,243452910-02 

0. 339261470-02 

-0.329922200-02 

0.422367240-02 

-0.41151 3900-02 

I 3 

0.980530260-03 

-0.210008920-02 

-0.278795390-03 

-0. 1212470 BD-02 

-0.152277400-02 

-0.317112340-01 


-0.559729450-03 

0.0 

-0.7453H3090-03 

0.0 

-0.919943150-93 • 

0.0 

14 

-0. 1 36990650-02 

-0.559738130-03 

-0.360627290-04 

-0.118259400-02 

0.121269000-02 

-0.189552640-02 


-0. 964«2245U-03 

0.0 

-0,609328340-03 

0.0 

-0.341418200-03 

0.0 

15 

0. 14OH09050-02 

-0.201917100-02 

0. 1 10462230-02 

-0.170927730-02 

0.753422100-03 

-0. 137522430-02 


-0.260540270-03 

0.0 

-0.301227480-03 

0.0 

-0.310901080-03 

0.0 

16 

0.325367330-03 

-0. 111750630-02 

-0.547205690-03 

-0.410377860-01 

-0.1508U980-02 

0.193176970-01 


-C. 396069460-03 

0.0 

-0.462791770-03 

0.0 

-0,657371420-03 

0.0 • 

17 

-0. 166185680-02 

0.460379250-03 

-0.023359750-03 

0.1738308 70-04 

0.418160920-04 

-0.395446500-01 


-0.600739270-03 

0.0 

-0.402988330-03 

0.0 

-0.176815200-03 

0.0 

18 

0.?9e528580-0» 

-0.444761420'03 

0. 649206270-04 

-0.178246490-03 

-0.236819400-03 

-0.229131730-04 


-0. 731164200-04 

0.0 

-0.466629300-04 

0.0 

-0. 129866290-03 

0.0 


CYCLE* 570 
STRAIN AT ADDITIONAL POINTS 
t 

2 

i 


ENERGY and WORK AT THE END Of TINE CYCLE 570 
FRAGMENT KINETIC ENERGY 

1 , 0.136119D«0A 


J- 570 TIME (SEC.I * O.llAOOOO-02 TIME AFTER INITIAL IMPACT • 0.1740000-03 

WORK INPUT INTO RING IIN.-IB.) * 0.374054D»03 

RING KINETIC ENERGY I IN. -LB. I « 0.9779680^02 

RING ELASTIC ENERGY IIH.-LB.I • 0.l277480t03 

RING PLASTIC WORK <IN.-LB.) * 0.126400D«03 

ENERGY stored IN THE ELASTIC RESTRAINTS IIN.-LB.I - 0.22U0lOf02 

IV U PSI CHI COPY 

1 0.0 0.0 0.22600-02 -0.13460-02 0.0 

2 -0.76420-03 -0.U170-03 -0.73200-03 -0.15470-03 0.99920*00 

3 -0.9H580-03 0.43950-03 0.15700-02 -0.37340-03 0.19990*01 

4 -0.21250-02 -0.76600-04 -0.52960-02 -0.19630-02 0.29980*01 

5 -0.36130-02 -0. 12220-01 -0.17290-01 -0.12120-02 0.39960*01 

6 -0.24730-02 -0.21400-01 0.92900-02 0.37290-02 0.49960*01 

7 0.39010-03 0.21450-01 0.76B40-01 0.60730-03 0.60000*01 

• -0.33050-02 0.11750*00 0.10210*00 -0.63500-02 0.69970*01 

9 -0.11430-01 0.19470*00 0.30010-01 -0.8H32D-02 0.79fl90*0l 

10 -0.23410-01 0.14556*00 -0.14230*00 -0.20050-01 0.89770*01 

U -0.30340-01 0.12270-01 -0.26270-01 0.16630-03 0.99700*01 

12 0.69450-02 0.92450-02 -0. 18700-01 -0.70990-04 0.10490*02 

13 0.0 0.0 0.0 0.71620-04 0.11500*02 

U -0.32850-01 0.87710-03 -0.18100-01 -0.16640-02 0.10840*02 

15 -0.31530-Dl -0. 19460-01 -0.80810-02 0.68920-03 0.11670*02 

16 -0.27460-01 -0.19770-01 0. 16530-01 0.60520-05 0.1247D*02 

17 -0. 25690-01 -0.78560-02 0.15400-01 -0,14310-02 0.13190*02 

18 -0. 25300-01 -0.41770-02 0,80560-02 0. 10390-03 0.13910*02 

19 -0.24960-01 0.27150-03 0.10360-01 -0.33250-03 0.14320*02 

FRAG NO.* FCCU • FCGN ■ ALFA - 

1 0.6973070*01 -0.4792000*00 0.0 0.2607960*04 0.5084110*03 0.0 


REACTIONS 

AT NODE 

RVILBS) 


RUILBSI RMIIN-LBSI 



1 

0.3727770*04 

.0.4941850*03: 0.0 



13 

0.6475120*03 

-0.1465180*04 0.3402030*04 


SUBSTRUCTURE 

NSTR 

ELE SURF 

. STA 

TIME 


1 

0.1272410 

-01 9 2 

3 

0.1056000-02 


2 

0.4223670 

-02 12 1 

3 

0.1140000-02 


INTERFACE 

0.3092560 

-02 to 1 

2 

0.1006000-02 


SUBSTRUCTURE 

LARGEST < 

AOO* PT. STRAIN 

ELEH 

*00. ,T. TIW SU*F»CE 

1 


0.9072270-02 

9 

1 0.1046000-02 

2 

2 


0.1228510-02 

ll 

2 0.1140000-02 

1 

INTERFACE 


0. 1347000-02 

13 

3 0.1022000-02 

t 

SUBSTRUCTURE 

LARGEST 

NUOAt STRAIN 

NOOE 

SURF TIME 


1 


0.B81t66U-02 

a 

1 0.1022000-02 


2 


0.2276140-02 

13 

1 0.1140000-02 



COPZ L M STRAIN! INI STRAfNlOUTI 

0.0 -0.36010*04 -0.26360*0.3 -0.16570-02 -0.40160-03 

-0.13170-03 -0.34080*04 -0.43290*03 -0.56440-04 -0.44830-03 

0.43950-03 -0.55520*04 -0.11520*03 -0.32980-03 -0.49910-03 

-0.76600-04 -0.42580*04 -0,71720*02 -0.24280-02 -0.50300-01 

-0.12220-01 -0.38340*04 -0.79270*03 -0,12180-02 -0.59240-03 

-0.21400-81 -0.37740*04 -0:il09D*04 0.51290-02 -0.8692U-Q3 

0.21450-01 -0. 46610*04 -0.48560*03 0. 52610-02 -0-74290-03 

0.11750*00 -0.362l0*p4 0.25520*03 -0.1H2D-02 -0.53990-03 

0.19470*00 -0.26000*04 0.16370*03 -0.L070D-OI -0.1272U-02 

0.14550*00 -0.66960*03 -0.29280*03 -0.122LD-01 -0.22520-02 

0.22270-01 -0.14420*04 -0.10470*04 0.18910-02 -0.35170-02 

0.10100*01 0.54190*03 -0.25890*04 0.12400-0? -0.10320-02 

0.15000*01 -0.25140*04 -0.11220*03 0,22760-02 -0.21330-02 

-0.69J9D-01 -0.21920*04 -0.10450*03 -0.16990-02 -0.89790-03 

-0.30900*00 -0.18850*04 -0.12650*03 0.11850-02 -0.66620-03 

-0.67330*00 -0.13670*04 -0.48240*02 0. 38210-03 -0.57570-03 

-0.11590*01 -0.87940*03 -0.15850*02 -0. 16320-02 -0.43860-03 

-0.17690*01 -0.23040*03 -0.13640*02 C. 24210-03 -0.18090-03 

-0.24780*01 -0.32290-03 -0.14680-03 

FRUV « FRWV ■ FRAY ■ 


-0.154066950-01 

-0,440731240-02 

0.122851120-02 

0.122716200-02 

-0.487270570-03 


SO 

0.721695860-02 

0.0 

-0,147706380-02 

-0,220170320-02 

0.0 


El 

-0.1552T4460-01 


0.122775750-02 

0.122641000-02 


EO 

0.719110260-02 


-0. 147815630-02 
-0.220413230-02 
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CYCLC* 5*^0 


element 

SI sta 

1 SO 

SI STA 

2 SO 

SI STA 

3 SO 

1 

-0.46411948^-^34 

0. 154251070-04 

-0.596719760-03 

0.39369569D-0} 

-0.116238710-02 

0.68795616D-03 


-0.54*332050-05 

0.0 

-0.101512040-03 

0*0 

-0.237215460-03 

0.0 

2 

-0. 164534600-02 

0. 103601650-02 

-0. 253064190-02 

0*151979960-02 

-0.331650500-02 

0.201828210-02 


-0.303664740-01 

0.0 

-0.505421170-03 

0.0 

-0.649111480-0) 

0.0 

3 

-0.312650100-02 

0.19201U9D-02 

-0.184367840-02 

0.11612890D-02 

-0*669796150-03 

0.410643660-03 


-0.603194550-03 

0.0 

-0.341194730-03 

0.0 

-0*129576250-03 

0.0 

4 

0.214402060-01 

-0.10430514D-03 

0.214077550-02 

-0.131269520-02 

0. *95772610-02 

-0.241666470-02 


0.550494620-04 

0.0 

0.414040170-03 

0.0 

0.769530700-0) 

0.0 

5 

0.469558510-02 

-0.290242600-02 

0.534500250-02 

-0.334980630-02 

0.605360380-02 

-0.363714940-02 


0.896518550-03 

0.0 

0. 997598100-03 

0.0 

0.120672720-02 

0.0 

6 

0.640*17180-02 

-0.421374010-02 

0.612214220-02 

-0.368318820-02 

0.58B172340-02 

-0.352613930-02 


0. 109571590-02 

0.0 

0. 111947700-02 

0.0 

0. 117779210-02 

0.0 

7 

0.477609300-02 

-0.307211370-02 

0.118192110-02 

' -0.678826000-03 

-0.209306570-02 

0.151536230-02 


0.851990020-03 

0.0 

0.25254652D-01 

0.0 

-0.288851690-03 

0.0 

A 

-0. 408054290-02 

0.263855130-0? 

-0.032152370-02 

0.446873630-02 

-0. 119076020-01 

0.629252080-02 


-0. 720995000-03 

0.0 

-0.192639170-02 

0.0 

-0.280764080-02 

0.0 

9 

-0.122159430-01 

0.620410T7O-0Z 

-0.138453090-01 

0.752479410-02 

-0. 151262880-01 

0.869912390-02 


-0. 301591770-02 

0.0 

-0.316025730-02 

0.0 

-0.321458210-07 

0.0 

10 

-0. 485607J60-02 

0.208717500-02 

0.94764165D-02 

-0.461862110-02 

0. 102082590-0: 

-0.22026451U-01 


-0.138444930-02 

0.0 

0.242889760-02 

0.0 

-0.590909590-02 

0.0 

u 

5. 122104500-02 

-0.230244030-03 

0,783676740-03 

-0.130610400-02 

0.124979060-02 

-0.147846290-02 

12 

0.163196420-02 

-0.175152300-02 

0.303109020-02 

-0.317479230-02 

0.440868780-02 

-0.442119010-02 

13 

0.184261370-02 

-0.107677230-02 

0.12056170D-02 

-0.952820510-03 

-0.268067260-01 

-0.9273)9670-04 


-0.170772630-04 

0.0 

0.326408230-03 

0.0 

-0.180400620-03 

0.0 

14 

-0.107050760-02 

0.565715910-03 

-0.677117470-03 

0.213727690-03 

-0.255142430-0) 

-0.11264)850-03 


-0.256395030-03 

0.0 

-0.231694890-03 

0.0 

-0.163693140-03 

0.0 

15 

0. 319033390-03 

-0.397559480-03 

0. 148074760-02 

-0.120306370-02 

0.272120630-02 

-0.194043510-02 


-0.36B63042D-04 

0.0 

0. 138841960-03 

0.0 

0.390385590-03 

0.0 . 

16 

0.249151350-02 

-0.1815T4050-02 

0.688572610-03 

-0.775643570-03 

-0.100070600-02 

0.379213750-03 


0. 338086530-03 

0.0 

-0.43S3547BD-04 

0.0 

-0, 310746130-03 

0.0 

IT 

-0.144079660-02 

0.530069390-03 

-0.110896500-02 

0.418723690-03 

-0.764366520-03 

0.326556800-03 


-0.45536361D-01 

0.0 

-0.345120640-03 

0.0 

-0.218904860-03 

0.0 

18 

-0.428538920-03 

0.420429160-04 

-0.147065600-03 

0.466658600-04 

-0.896607960-05 

-0.941985140-04 


-0. 193246000-03 

0.0 

-0.501998600-04 

0*0 

-0.515822970-04 

0.0 


CYCLE- 590 
STRAIN AT ADDITIONAL POINTS 

1 

2 
3 


$1 

•'0.l39a&3)20-0l 

-0.349555930-02 

0.7ai67674D-03 

0.190825490-02 

-O.I1144890D-03 


SO 

0.7591004SO-02 

0.0 

-0.130610400-02 

-0.213114670-02 

0.0 


El 

-0*140655330-01 

0.763369910-03 

0.190643770-02 


EO 

0.756240970-02 

^0.130695600-02 

-0.213342450-02 


EHERCV ANO UORK AT THE END OF TIME CYCLE 590 
FMAGHENT KINETIC ENERGY 

I 0.1361I9D*04 


Jm 990 TIME (SEC.I • 0.I18O00D-02 TIME AFTER INITIAL IMPACT 

UGRK INPUT INTO RING IIN.-L8.) - 0.3r4054D»03 

RING KINETIC ENERGY IlN.-LB.I ■ 0.103369D»03 

RING ELASTIC ENERGY IIN.-LB. 1 • 0. L1583a0»03 

RING PLASTIC WORK IIN.-Ib.) ■ 0.1319660403 

ENERGY STOHEO IN THE ELASTIC RESTRAINTS (IN.-LB.I > 0.2265960402 


0.2140000-03 


I 

1 

2 

3 

4 

5 

6 
7 
6 
9 

10 

II 
12 

13 

14 

15 

16 
17 
16 
19 


Y 

0.0 

-0. 38700-03 
-0.L894D-02 
-0.3166D-02 
-0.2063D-02 
0.97620-03 
0.26t4i;-02 
-0. 1636D-02 
-0.90660-02 
-0.23660-01 
-0.27320-01 
0.67550-02 
0.0 

-0.29040-01 
-0.20140-01 
-0.20250-01 
-0.22160-01 
-0.22110-01 
-0. 22090-01 
FRAG NO. 


U 

0.0 

0. 76970-02 
0.66580-02 
-0.10670-01 
-0.2781U-01 
-0.15200-01 
0.4606D-01 
0.14610400 
0.2109D400 
0.14640400 
0.20850-01 
0.911LD-02 
0.0 

0. 55870-02 
-0.10960-01 
-0.22340-01 
-0.92*730-02 
-0.1662D-02 
-0.32630-03 
.* FCGU « 


PSI 

0.87290-02 
0. 53130-02 
-0.96H6D-02 
-0.21710-01 
-0.66930-02 
0.34710-01 
0.6T37U-01 
0.98330-Ql 
0. 13060-01 
-0.15130400 
-0.23190-01 
-0. 17350-01 
0.0 

-0. 77790-02 
-0.15570-01 
0. 73830-02 
0*20660-01 
0.73150-02 
0.56300-02 


CHI 

0.2433D-04 
-0. 82060-03 
-0.21470-02 
-0.45350-03 
0.26600-02 
0.31910-02 
-0.30960-03 
-0.65690-02 
-0.77500-02 
-0.20630-01 
0.615 80-03 
-0.51630-04 
0.55270-04 
-0.776 70-03 
-0.24560-03 
0.16520-02 
-0.12350-02 
-0.43540-03 
-0.44130-04 


COPY 

0.0 

0.99960400 
0.19960401 
0.29970401 
0.39960401 
0.50010401 
0.6003D»01 
0.699BD401 
0.79910401 
0.6979D401 
0.99730*01 
0.10490402 
0.11500402 
0.10640402 
0.11680402 
0.1247D402 
0. 13190402 
0.13810*02 
0.14320402 
ALFA » 


COPZ 

0.0 

0.76970-02 

0.66560-02 

-0aC670-0l 

-0.27810-01 

-0.15200-01 

0.46060-01 

0.U61D400 

0.21090400 

0.14840400 

0.20650-01 

0.10100401 

0.15000401 

-0.65420-01 

-0.30190400 

-0.67660400 

-0.11630401 

-0.17700401 

-0.248LU401 

FKUV ■ 


L 

0.16260403 
-0.9407D402 
0.18240403 
-0.45340402 
-0.379 70*03 
-0.47250*03 
-0.48950*03 
-0. 63100*03 
0.329*60403 
0.19080*04 
-0.30320*04 
-0.82920*03 
0.32820*03 
-0.36040*03 
-0.55060403 
-0.64940403 
-0.46520*03 
-0.77620402 

FRWV - 


H 

0.18450*03 

0.58230*03 

0.39330403 

-0.37000*03 

-0.79810*03 

-0.67120*03 

-0.81180*02 

0*46380*03 

0.27030403 

-0.20550*03 

-0.90340403 

-0.24010*04 

-0.23040*02 

0 . 4^.530401 

-0.74260402 

-0.53490*02 

0.13320*02 

0.98670*00 


STRAINMNI 
0.86390-04 
-0.10790-02 
-0.28070-02 
-0.29120-03 
0.35890-02 
0.50960-02 
0.46900-02 
-0.23340-02 
-0.99650-02 
-0. 11350-01 
0.23880-02 
0.81560-03 
0.24540-0? 
-0.90840-03 
-0.11060-03 
0.25330-02 
-0.12900-02 
-0.50330-03 
-0.74350-05 


I 0.9077390401 -0.4588630*00 0.0 


0.2607960*04 0.5084110*03 0.0 


STRAINIGUri 

-0.9458D-05 

0.11650-04 

0.3169D-04 

0.26920-05 

-0.22570-04 

-0.94U0-04 

-0.40950-04 

0.14910-03 

-0.67760-03 

-0.18340-02 

-0.34650-02 

-0.61790-03 

-0.23430-02 

-0.25910-03 

-0.16600-03 

-0.61140-04 

-0.21310-03 

-0.12*40-03 

-0.90840-04 


REACTIONS 

AT NODE 

RVII.BSI 


RWILBS) RHIIN-LBS) 


1 

-0.9867< 90*02 

-0.3446940*03 0.0 



13 

-0.5399010403 

-0.2248710*04 0.3638870*04 


SUBSTRUCTURE 

HSTR 

ELE SURF 

STA 

TIME 


1 

0.1272410 

-01 9 2 

3 

0.1058000-02 


2 

0.«*08IV40-02 12 1 

3 

0.1 180000-02 


INTERFACE 

0.3092560 

-02 10 1 

2 

0*1006000-02 :* 


SUnSTRUCTUAE 

LARGEST 

ADO. PT. STRAIN 

ELEM 

AOO. PT* TIME SURFACE 

1 


0.9072270-02 

9 , 

1 0.1046000-02 

2 

2 


0.1299430-02 

11 

2 0.1150000-02 

1 

INTERFACE 


0.1347000-02 

13 

3 0.1 022000-02 

1 

SUaSTRUCTURE 

LARGEST 

nodal strain 

NODE 

SURF time 


1 


0.8811660-02 

8 

1 0.1022000-02 


2 


0.2453580-02 

13 

t 0.1180000-02 



IMPACT 'NO. ? TIME 0.121800D-02 DUiTiHO wVCL^ 610 ELEK ' 10 FRAG 1 DISTANCE 0.2719720*00 
F*AC 1 TC» 0.12390404 RE* 0.0 TOE« 0.12390*04 F88C 
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4 ' 


I'-pAcr 

NO. 1 Ti«r 

0.129600U-OJ DURING CYCLE GN>) 

ELCH 10 FRAG 

1 ni stance 

n.492054l>»00 

FUG 1 

ri « 0.12190904 

RT* 0.0 TOE* 

U.t2l9D»04 TRAC 



CYCLE* 

770 






ELCHENT 

SI STA 

1 SO 

SI STA 

2 SO 

SI STA 

3 SO 

1 

-D,46l9rm0-03 

0,280059730-03 

-0,455693440-03 

0. 235162650-03 

-0.19627964D-03 

0.445064720-0) 


*0. 909560000-04 

0,0 

-0.110275400-0) 

0.0 

0.124372540-03 

0.0 

2 

0.897213090-03 

-0, 3649)8900-03 

0, 31 3279350-02 

-0.12998239D-02 

0.495625850-02 

-0.246289100-02 


9. 266137090-03 

0.0 

0.91648461U-03 

0.0 

0. 124668380-02 

0.0 

3 

0.545)219/0-02 

-0.289207370-02 

0.540460840-02 

*0.294760830*02 

0.525970970-02 

-0.3085)9/70-02 


n. 128057300-02 

0.0 

0,122900010-02 

0.0 

0.108715600-02 

0.0 

4 

,0.5455<.Bb70-02 

*0. >20165060-02 

0.636183110-02 

*0. 366609700-02 

0. 728299070-02 

-0.400825410-02 


0.112691900-02 

0.0 

0. 134686710-02 

0.0 

0. 163737230-02 

0.0 

5 

0.67l574<i70-02 

-0.377181340-02 

0. 359561020-02 

*0.176000650*02 

0.502700870-03 

-0. 720410350-04 


0. 147196560-02 

0.0 

0.917801870-01 

0.0 

0.215)29920-0) 

.0.0 

6 

-0. 117109320-02 

0.756275210-03 

-0.35045750D-02 

0.211275340*02 

*0.515560)90-02 

0.364466220-02 


-0.207408990-03 

0.0 

-0.695910810-03 

0.0 

*0.855470860-0) 

0.0 

7 

-0.59475B070-02 

0. 372550460*02 

-0,768059210-02 

0.506544460-02 

-0.959068740-02 

0.629102470-02 


-0.111103000-02 

0.0 

-0.140757370-02 

0.0 

-0. 164953110-02 

0.0 

B 

-0. 881160970-02 

0. 553101910-02 

-0.51592355D-02 

0. 352020270*02 

*0. 170717540-02 

0. 173379110-02 


-0. 164029530-02 

0.0 

-0.817476420-03 

0.0 

-0.266921460-04 

0.0 

9 

-0. 1322576/0-02 

0,573247370-03 

-0.476154260-02 

0.351500690-02 

-0.781771770*02 

0.606647)70-02 


-0. 374664650-03 

0.0 

-0.623266890-03 

0.0 

*0.875622000*03 

0.0 

10 

-0.656035900-03 

0^157352010-02 

0,929500380-02 

-0.336327850-02 

0.796649840-02 

-0.175042340-01 


0.456342120-03 

0.0 

0.2965B626U-02 

0.0 

-0.476886770-02 

0.0 

11 

-0.634/509)0-03 

0.263976420-03 

0.32828320D-03 

0.1268)7620-03 

0.699197470-03 

-0.402620100-03 

12 

0,797105610-03 

-0.345794510-03 

0.267004450-02 

-0.1923)0420-02 

0.456590700-02 

-0. 34/799120-02 

13 

0.152447120-03 

-0.495867360-03 

0.69635461U-03 

0.461496300-03 

0.204919020*03 

0.361262670*03 


-0.171710120-0) 

0,0 

0.578925450-0) 

0.0 

0.263091240*03 

0.0 

14 

0.669008610-04 

0.510776050-03 

0.924578930-03 

0.129315630-03 

0.148114400-02 

-0.5602M040-03 


0.28983B460-03 

0.0 

0. 526947280*03 

0.0 

0.460441500*03 

0.0 

15 

0.121606660-02 

0.107003970-03 

0. 12569 3920-02 

*0.352321660*03 

O.1777H260D-O2 

-P.310090700-0) 


0.661535390*03 

0.0 

0.452306770-03 

0.0 

0.723669050-03 

0.0 

16 

0. 1655/4710-02 

-0.63)661660-03 

-0,219703930-03 

0.667299930*03 

*0.224214320*02 

0. 166499360-02 


0.511042710-03 

0.0 

0.233798000-03 

0.0 

*0.168574760*0) 

0.0 

17 

-0.206B04420-02 

0.161286190-02 

0.146637700-03 

0.378551550-03 

0.214421740*02 

-0.107480220-02 


-0.22/59U60-03 

0.0 

0^262594630-03 

0.0 

0.534707610-03 

0.0 

18 

0.239609590-02 

-0.110601000-02 

0.162110670-02 

-0.063952170-03 

0.104952500-02 

*0.426376080*03 


0.64504297D-0) 

0.0 

0,378577290-03 

0.0 

0.3U57446D-03 

0.0 

crti.c» 

770 






STRAIN 

AT additional points S? 

SO 

El 


EO 


1 

*0.503090140-02 

0.37076)010-02 

-0.50436204D-02 0.37C;79040*02 



-0.7R227550D-O) 

0.0 





2 0.32H2AI20D-0) 0* 12683T62D-01 0« 32022933O*Q3 O,12692950O-O3 

3 -0*Zb2622n30'04 >0.74360709D*03 •0*262626260*09 -O.T^atOSrZD-Ol 

*0*369934660-03 0*0 


ENERGY AND WORK AT THE END OF TIME CYCLE 770 

iJ 

u FRAGMENT KINETIC ENERGY 

1 0.1216660904 


ORIGINAL PAGE IS 
OF POOR QUALITY 


J* 770 TfHE ISEC.t ■ »• 1540000*02 TIME AFTER INITIAL IMPACT - 0.5740000*03 

WORK INPUT INTO RING (IN.-LB.) ■ 0.5165620903 

RING KINETIC ENERGY (IN. -LB. I - 0*6311070902 

RING ELASTIC ENERGY (IN.-LB. I ■ O.119tOOD*03 

RING plastic UORK ||N.*L%.I ■ 0.2976960903 

ENERGY STORED IN THE ELASTIC RESTRAINTS IIN.-LB.I » 0.1667370902 


IV U PSl CHI COPY 

1 0.0 0.0 *0.17620*01 -0.36570-03 0.0 

2 -0.39390*03 -0.19030-01 -0.20200-01 -0. 12040-03 0.9996D900 

3 0.14090*02 -0.33570*01 *0.37610*02 0.33490*02 0.2001D90L 

4 0.45680-02 *0.20870-01 0.29630*01 0.26740-02 0.3005U901 

5 0,71070-02 0.29020*01 0.73240*01 0.19870*02 0.40070901 

6 0,51850*02 0.11990900 0.98740*01 *0.51200*02 0.50050901 

7 -0.75010-03 0.20810900 0.69180*01 *0.56650-02 0.59990901 

6 -0.62550-02 0.24390900 -0.69750*02 -0,58030*02 0.69940901 

9 -0.10360-01 0.20090900 -0.6481D-0I -0.25360-02 0.7990D901 

10 -0.16900-01 0*11500900 *0.12850900 -0,12870*01 0.69830901 

11 -0.19300-01 0.15190-01 -0.13400-01 -0,46910-03 0.99810901 

12 0.53980-02 0.78230-02 -0.12840-01 0,98500*04 0.10500902 

13 0.0 0.0 0.0 0.60770*03 0.11500902 

14 -0.20570*01 0.15500-02 -0.11300-01 -0,14330-03 0.10850902 

15 -0.19160-01 -0.10820-01 -0.43360*02 0,10240-02 0.11690902 

16*0.16100-01 *0.12360*01 0.97030*02 0.14290-02 0.12480902 

17 -0.14T9D-01 -0.47690-02 0.17900-02 *0-16760-02 0.13200902 

18-0,13220-01 -0..12260-01 *0.23060*03 0,17570-02 0.13810902 

19 -0.10740-01 -0.33870-02 0.21470*01 0.35010-03 0.14320902 

FRAG NO.* FCCU * ECGU « ALFA » 

I 0.9975910901 -0.5633630900 0.0 


COPZ L M STRAINflNl STRAINIOUTI 


0.0 

-0.3210D*03 

0.98760*02 

-0.32160-03 

0.57040*04 

•0.19030*01 

0.65990«03 

-0.19570*03 

0.63430-04 

0.14400*03. 

•0. 33570-01 

0.34900*03 

-0,85370*03 

0,43980-02 

0.25010-03 

0.20870-01 

0.23880*03 

-0.96680*03 

0.41520-02 

0.80650*05 

0.2902D-01 

0.27340*03 

-0.30120*03 

0.61460-02 

0.22510-03 

0. 1199D»00 

0.17350*02 

0,49360*03 

*0. 32850-0) 

0.58090-04 

0.20810»00 

0.74370*03 

0.72600*03 

*0. 44370-02 

0,20680-03 

0. 24390*00 

0.17860*04 

0.40030*03 

-0. 78090-02 

0.38140-0) 

0, 20090^00 

0.32560*04 

-0.56140*02 

-0.55840-0) 

-0. 55600-04 

0.1150D*00 

0.98200*03 

-0.33790*02 

-0.59260-02 

-0.34560-03 

0.15190-01 

0.26410*04 

-0,77930*02 

0.49320*03 

-0. 3149D-02 

o.Looeo»-oi 

0.4)310*04 

-0,17770*04 

0.40100-03 

-0.39190-04 

0,L5000«^01 

0.16100*04 

0.55170*02 

0.28700-0? 

-0.1654D-02 

-0.70B6D-01 

0.1?58D*04 

0,30850*02 

-0.14610-03 

0.12040-03 

•0.3052D*>00 

0. 74980*01 

-0.43710*01 

0.12440-02 

0.40210-03 

0.672SD«00 

0.100/0*04 

0.55640*02 

0.18190-02 

0,45110-03 

‘0.11640»01 

0.85110*03 

0,36290*02 

-0.22810-02 

0. 14980-01 

•0.1784D»01 

0.22180*03 

-0.41550*02 

0,22600-02 

0. 25390-03 

•0.24920»01 



0.72860-0) 

0.1)670-03 


FRUV « FRHV * FKAV « 


0.2466310904 -0.4876980903 0.0 


REACTIONS 4T NODE • RVIL6SI RWILBSI RHIIN-LBSI 

1 ' 0* 1066760903 -0.2570160903 0.0 

13 0.3977450904 -0.127.7640904 0.2034260904 


SUBSTRUCTURE 

mstr ele 

SURF 

$78 

TIME 


1 

0.1793420-01 9 

2 

3 

0.1264000-02 


2 

0.7909600-02 12 

1 

3 

0.1334000-02 


interface 

0,52982I1>*02 10 

1 

2 

0.1226000-02 


SUBSTRUCTURE 

LARGEST ADO. PT. STRAIN 

ELEN 

ADO. FT. TIME 

surface 

1 

0« 1074660-01 


9 

1 0* 1294000*02 

2 

2 

0.1699450*02 


11 

2 0.1274000-02 

1 

INTERFACE 

0.1617770*02 


13 

3 0.1252000-02 

1 

substructure 

LARGEST nodal STRAIN 


NODE 

SURF TIME 


1 

0.8611660-02 


6 

1 0.1022000*02 


2 

0.4947560-02 


13 

1 0.1334000-02 
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tvCU- T'JQ 


ELCNENT 

SI SIA 

1 sn 

SI STA 

Z SO 

SI STA 3 

sn 

1 

0.145072160-0) 

fl. 746263700-04 

-0. 3669129711-04 

0.1T585I440-03 

-0.32665U950-04 

0.447046690-03 


C. 107849270-33 

0.0 

0.695800710-04 

0.0 

0.207590800*1)3 

0.0 

2 

0.493148090-01 

0.699904S3D-05 

0.129476590-02 

-0.151084520-03 

0.179)07610-02 

-0.571658910-03 


U.246I 73870-03 

0.0 

0.570840690-0) 

0.0 

0.61070H610-C3 

0.0 

3 

3.242/4460U-92 

-0.102H0379D-02 

0,435'^95940-0? 

-0.239813020-02 

0.625R04510-42 

-0.359118410-07 


0.697904930-03 

0.0 

0.9H0914570-01 

G.O 

0. 1 1334 1050-02 

0.0 

4 

0. 7032596RD-02 

-0.423713050-02 

0. 72241 760<)-0? 

-0.424226110-02 

0. 73448966D-32 

-0.420026140-02 


0. 139772910-02 

0.0 

0.149095 750-02 

0.0 

0.15)231760-02 

o.p 

5 

0.64J053H40-02 

-0.J79356170-02 

0. 147409030-02 

-0.203862350-02 

0. 714370120-03 

-0. 407706300-01 


3. 131K4R84D-02 

0.0 

0. 717737400-01 

0.0 

0.151332960-03 

0.0 

6 

769265110-9) 

-0. 184945 130-04 

-0.451628060-02 

0.240549460-0Z 

-0.842343240-02 

0.41870704U-02 


-0.40jR7«>9Z0-01 

0.0 

-0.105539300-07 

0.0 

-0.212080600-02 

0.0 

7 

-J.971HS1290-0Z 

0.516610900-0? 

-0. 496997,430-02 

0.461943560-02 

-0.7U13H993U-O2 

0.435558060-02 


-3.217540I9C-32 

0.0 

-0.217907430-02 

0.0 

-0.172913930-02 

0.0 

0 

-a1.6H32 0499u-O2 

C. 140135290-02 

-0.520494640-02 

0.24232991U-02 

-0. •1923:4460-02 

0.149515900-02 


-3.170074400-02 

0.0 

-0.14)084370-02 

0.0 

-0.12I4a1426U-02 

0.0 

9 

-D. 367102 I'.O-Oa** 

0.893575430-03 

-0.4227ll04l)-02 

0.15277TS90-P2 

-0. 426060730-02 

0.2000l5l4D-r'2 


-1.1309 72 4 30-02 

0.0 

-0.134716710-02 

0.0 

-0.879826920-03 

0.0 

i 0 

0.791141 7 )n-03 

-0.743136780-03 

6.677516000-02 

-0.406466090-02 

0.924311500-02 

-0, 135/73170-01 


0. 2407.24560-04 

0.0 

0.11552597*t»-02 

0.0 

-0.416790120-02 

0.0 

1 1 

-9.1IUJ7760-92 

-f-.l9262ll0L-0l 

0. I9*07ti5nu-01 

0.209457380-03 

0.8597R168I- 3 

-9.455415410-0) 

12 

0.7O673179M-OJ 

-O.5R9O4405I5-O3 

0.?H29mU4n-02 

-0.227071060-02 

0.487315010-02 

-0.4010.'9JI0-02 

n 

-J. 1840V4/2U-0? 

O.594500H60-03 

-0.141152190-02 

-0.449B31900-03 

-0.22045139J-D3 

-0.7107289**0-0) 


-3.62 12211 70-9 » 

0.9 

-0.930676920-01 

0.0 

-0.465590160-03 

0.0 

i4 

3.811925890-0) 

-0.1O137278D-02 

0.1 190100 10-02 

-0. 164222160-02 

0.14726302Q-02 

-0. 178324490-02 


-0.40J*KJ096n-0) 

0.0 

-0. .**25956 77.0-03 

0.0 

-0. 155307)40-03 

o.o 

16 

0. 151529110-02 

-0.181209420-02 

0. 126912930-02 

-0,151200240-02 

0.064024940-01 

-0. 13.3724610-02 


-0.140401530-0) 

0.0 

-0.121436530-03 

0.0 

-0.261610S80-U3 

0.0 

16 

-0.470169700-0) 

-0.2H0920610-03 

-0. 302020120-02 

0.109752480-02 

-0.526750440-02 

0.280415250-02 


-0.375545160-0) 

0.0 

-0.9611102311-0) 

0.0 

-0. 121167590-02 

0.0 

17 

-0.405204710-02 

0.1R4044590-02 

0.29318155I1-0) 

-0.454650390-03 

0.438705390-02 

-0.300163170-02 


-0.110620560-02 

0.0 

-0.807344210-04 

0.0 

0.692711100-03 

0.0 

18 

0.503421140-02 

-0.3l6»9)6tU-02 

0.30969 30111-02 

-0,195639310-02 

0.11498HI30-92 

-0. 7846499)0-03 


0.936137640-03 

0.0 

0.570268500-01 

0,0 

0. 182616690-03 

0.0 


CYCLC> 

790 



► TRAIN AT 

ADDITIONAL POINTS 

SI 

sn 


1 

-0.4246L914D-02 

-0.140954970-02* 

6.1588190S0-02 

0.0 


2 

0.396678590-03 

0.209457300-03 


3 

-0.lB5mnj0-0? 

-0.519072240-03 

0.616973870-03 

0.0 


El 

-0.^299Z4500'02 

0.)9459994D-01 
•O.U9E04 600*02 


EO 

0*19t693LJO-02 

0.2094)949O*0) 

O*ill69«7«0~OI 


E4ERCV &NQ WORK A1 THE END OF TIME CYCLE 790 
FRACNENT KINETIC ENERGY 

I 0wl2tS6AO*O4 


J* 790 TINE I SEC*) ■ 0.1580000*02 TINE AFTER INITIAL INFACT 

WORK INFUT INTO RING IIN.*LB.) ■ 0*5165020*03 

AIN2 KINETIC ENERGY IlN.^LH.) ■ 0.5029390*02 

R1N3 CLASTIC ENERGY UN. -LB.) • 0.1264560*03 . . 

RING PLASTIC bORK I1N.*L0.I - 0.3246310*03 

^ ENERGY STORED IN THE ELASTIC RESTRAINTS tIN.-LB.) - 0.1520120*02 


0.6140000*03 


1 Y 

U 

PSI 

CHI 

COPY 

1 0.0 

0.0 

-0.91040-02 

0.15250-03 

0.0 

2 0. 24390-04 

-0.92620-02 

-0.98170-02 

0.94000-04 

0.10000*01 

3 0.64070-03 

-0.17200-01 

-0.44750-02 

0.12150-02 

0.20010*01 

4 0.34630-02 

-0. 11090-01 

0.22560-01 

0.38920-02 

0.30030*01 

5 0.65920-02 

0.3586C7-01 

0.7241D-01 

0.18350-02 

0.40070*01 

6 0.46160-02 

0.12590*00 

0.96660-01 

-0. 49340-02 

0.50050*01 

7 -0.ZI40D-02 

0.21330*00 

0.62230-01 

-0.79100-02 

0.59960*01 

8 -0.81040-02 

0.23450*00 

-0.17700-01 

-0.46510-02 

0.69920*01 

9 -0.12680-01 

O.lAFIDOa 

-0.69090-01 

-0. 47970-02 

0. 79070*01 

10 -0.19390-01 

0.994TD-01 

-0.11330*00 

-0.08460-02 

0.89610*01 

U -0.21160-01 

0.17020-01 

-0.14700-01 

-0,12540-02 

0.99790*01 

12 0.M 330-02 

0.B5S8O-02 

-0.14250-01 

-0.12090-03 

0. 19500*02 

13 0.0 

0.0 

0.0 

0.46040-03 

0.11500*02 

14 -0.21290-01 

-0.59000-02 

-0.23220-01 

-0.10220-0) 

0. 10840*02 

15 -0.20400-01 

-0.19910-01 

0.15370-02 

0.70920-03 

0.11660*02 

16 -0. 17100-01 

-0. io3io-ni 

0.25850-01 

-0.16000-03 

0.12460*02 

1 7 -0.18470-01 

-0.39550-04 

-0.10150-01 

-0.36400-02 

0.13200*02 

18 -0.16770-01 

-0,20150-01 

-0.36200-02 

0.35030-02 

0.13000*02 

19 -0.1)060-01 

-0.14)00-02 

0.40540-01 

-0.66490-03 

0.14320*02 

TKAG NO. 

.» rccu « 

FCCH • 

ALFA - 


C0P2 

0.0 

-0.92620-02 
-0.17200-01 
“0.U09D-01 
0. 39860-01 
0.12590*00 
0.2133U»00 
0.2)450*00 
0. 1HU3U*00 
0.99470-01 
0.1702U-0I 
0.10090*01 
0U5000*Ql 
-0.77740-01 
-0.31 330*00 
-0.67030*00 
-0.11580*01 
-O.l7n6I)*0l 
-0.24H9D*f)l 
FKUV > 


L 

0.71060*03 
0.602 i0*03 
-0.44110*02 
-0.15000*03 
-0. 10740*04 
-0. 10590*04 
-0.17500*04 
-0. 14230*04 
-O.HO* 20*03 
-0.34P90*04 
0.351 70*04 
0. 32400*04 
-0.2)800*04 
-0.15710*04 
-0.13470*04 
-0.13450*04 
-0.50290*03 
-0. 13300*03 

FRWY I 


H 

0.12940*03 
0.25470*03 
-0.69040*03 
-0.11270*04 
-0.42030*03 
0.50770*03 
0.52470*03 
0.17760*03 
-C. 32710*0 3 
-0. 17260*03 
-0.72430*32 
-0.19730*04 
-0.69240*02 
-0.11090*0) 
-0.10500*03 
0.32510*02 

-0.3368D»02 
-0. 10620*03 


FK 


STKAINIIN) 
0.21340-03 
0.11890-31 
0.15430-02 
0.55Z4U-02 
0.591AD-02 
0. 12l0n-04 
-0.79070-02 
-0.59000-C2 
-0.29600-02 
-0.29140-02 
-0.749/D-0) 
0.201 70-03 
0.29630-02 
O.2507D-O) 
O.U 400-02 
0.397UD-03 
-0.464 80-0.** 
0.47.680-02 
0.2H59D-0 ) 


t 0.1007460*02 -0.5928790*00 0.0 


0.2466310*04 -0.4076980*03 0.0 


StRAINtJUTI 
0.13560-03 
0.21270-03 
0.27390-03 
0.4534J-04 
O.0646O-O4 
-0.25560-03 
-0.39210-03 
-0.22090-91 
-0.71510-03 
-O.0O2OO-O) 
-0.24860-02 
-0. 25640-03 
-0.2042D-02 
-0.51610-03 
-0.57000-03 
-0.40570-03 
-0.30460-03 
0.S927|)-04 
-0.22V90-03 


REACTIONS 

at node 

RYILAS) 

RHILflSi KNIIN-LBSl 


. 1 

-0.8162220*03 

-0.3451)60*03 0.0 


13 

0.2688150*04 

-0,1584270*04 0.2405030*94 

sjssTructure 

HSTR 

ELE SURF 

STA 

TIHE 

t 

0.tT93A2D-DI 4 2 

3 

0.1264000-02 

2 

0. 7900000- 

-02 12 1 

3 

0.1334000-02 

iSTCRrACC 

0.5299210- 

-02 10 1 

2 

0.1226G0D-02 

substructure 

LARGrST AOU. PT. STRAIN 

ELEN 

ADO, PT. MMC SURFACE 

t 


0.1074660-01 

9 

1 0.I254Q0D-02 2 

2 


□ .10»54'*O-O2 

11 

2 0.1274000-02 1 

Interface 


0.16a /770-02 

13 

3 0.1252000-02 t 

substructure 

LARGEST 

NODAL strain 

NOUE 

SUHF THF 

1 


0.861 1660-02 

8 

1 0.1022000-02 

2 


0.494 7560-02 

13 

1 2.1)14090-02 


Itit U»3E5T COHPUTEO ST.AINS FOR EACH SURSTRUCIURE— MAIN AND BRAJCIISS — ARE PRINTED BELOW, !• INNER i- DUTCR i.URF 


SUBSTRUCTURE 

RSTR ELC SURF 

STA 

TIHE 


1 

0.1793420-01 9 2 

3 

0.1264000-02 


2 

0.7900900-02 12 1 

3 

0.133400D-02 


INTERFACE 

0.5298210-02 10 1 

2 

0.1226000-02 


SUBSTRUCTURE 

LARGEST ADO. PT. STRAIN 

EL EH 

ADD. PT. TIHE 

SURFACE 

1 

0.1074660-01 

9 

1 0,1254000-02 

2 

2 

0.1855450-02 

11 

2 0.1274009-02 

1 

INTERFACE 

0.1617770-02 

13 

1 0.1252000-0? 

1 

S.'0ST<UCTURF 

LARGEST NODAL STRAIN 

NODE 

SURF TIM® 


1 

0.401 I66O-02 

8 

1 0.1022000-02 


2 

0. 4947560-02 

13 

1 0.1334000-02 


N3 CAROS PU9CHCD 

DUB INC THIS BUN FIIR ClINTINllBrinN, 
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TABLE 


EXAMPLE PROBLEM RESULTS OBTAINED FROM SEVERAL SYSTEMS, COMPILERS, AND PROGRAM 
MODIFICATIONS FOR JET 5A AND CIVM-JET 5B (SEE SUBSECTIONS 7,1 AND 7.2) 


REACTIONS AT NODE 1 


REACTIONS AT NODE 21 


LARGEST STRAINS FOR EACH SUBSTRUCTURE 


SYSTEM 

COMPILER 

J 

TIME 

(SEC) 

RV 

(LBS) 

RW 

(LBS) 

RM 

(IN-LBS) 

UV 

(LBS) 

RH 

(LBS) 

RM 

(IN-LBS) 

SUBS. 

MSTR 

ELE 

SURF 

STA 

TIME 

(SEC) 

IBM 

370 

G EXTEN 
AT MIT 

150 

0.000600 

15026.1 

0.0 

15223.0 

36925.5 

0.0 

-12355.7 

1 

0.123908 

9 

2 

1 

0.000600 

IBM 


'h EXTEN** 

150 

0.000600 

15026.1 

0.0 

15223.0 

36925.5 

0.0 

-12355.7 

1 

0.123908 

9 

2 

1 

0.000600 

360 

< 

H EXTEN®*** 

150 

0.000600 

15026.1 

0.0 

15223.0 

36925.5 

0.0 

-12355.7 

1 

0.123908 

9 

2 

1 

0.000600 



TSS®'** 

150 

0.000600 

9304.59 

0.0 

-15939.1 

38072.8 

0.0 

-11465.6 

1 

0.124536 

9 

2 

1 

0,000600 

UNIVAC 


FOR.V®*'**® 

150 

0.000600 

5044.37 

0.0 

16854.9 

33979.1 

0.0 

-12119.5 

1 

0.124189 

9 

2 

1 

0.000600 

1100/42 

< 

ASCII® *** 

150 

0.000600 

12396.0 

0,0 

15788.8 

29090.4 

0.0 

-11940.2 

1 

0.123941 

9 

2 

1 

0.000600 


REACTIONS AT NODE 1 


G EXTEN 
AT MIT 

r H EXTEN** 

H EXTEN®*'* 
TSS®’** 


790 0.001580 
790 0.001580 


UNIVAC ■ . 

1100/42 ASCII®*® 


-816.222 

-345.116 

0.0 

2688.15 

-816.222 

-345.116 

0.0 

2688,15 

-816.222 

-345.116 

0.0 

2688.15 

-585.535 

-321.497 

0.0 

2767.64 

-237.605 

-344.243 

0.0 

3269.89 


REACTIONS AT NODE 13 
iSa.lS -1584.27 2405.03 

588.15 -1584.27 2405.03 
588.15 -1584.27 2405.03 
767.64 -1642.0 2477.13 


0.0179342 9 

0.0179342 9 

0.0179342 9 

0.0177578 9 

0.0178627 9 


3 0.001264 


3 0.001262 


a: NASA-Lewls elimination of nested indices. 

b: NASA-Lewis addition of special symbol for index retention in subprogram PRINT. 

: NASA-Lewis segmentation (overlay). 
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(b) Variable-Thickness Arbitrarily-Curved Complete Ring 
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Y, Z: GLOBAL COORDINATES 
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FIG. 3 NOMENCLATURE FOR GEOMETRY, COORDINATES, AND DISPLACE- 
MENTS OF A MULTILAYER CURVED-BEAM FINITE ELEMENT 
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(a) Prescribed Displacement Conditions 


DISTRIBUTED ELASTIC 
RESTORING SPRING 
(ELASTIC FOUNDATION) 



(b) Elastic Restraints 

FIG. 4 SCHEMATICS FOR THE SUPPORT CONDITIONS OF THE STRUCTURE 
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SIMILAR SUPPORT 
BRACKET AT END 


(c) Schematic of a Bracket-Supported Fragment Containment/ 
Deflector Structure ‘ 
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(a) Pre-Impact Location 



(b) Fragment and Impact-Affected Ring Segment 


8 IDEALIZATION OF RING CONTOUR FOR COLLISION ANALYSIS 
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FIG. 9 INFORMATION FLOW SCHEMATIC FOR PREDICTING RING AND 
FRAGMENT MOTIONS IN THE COLLISION-IMPARTED VELOCITY 
METHOD 
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(a) Illustrative Fragment C/D Structure with Slope Discontinuities 



^b) Exploded View of Node 6 — Angle Definitions 


PIG. 10 DEFINITION OF SLOPE-DISCONTINUITY ANGLES FOR AN 
ILLUSTRATIVE FRAGMENT AND C/D STRUCTURE 
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FIG. 10 CONCLUDED 
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PIG. 11 PROBLEM DATA, GEOMETRY, NOMENCLATURE, AND FINITE-ELEMENT MODELING 
FOR THE JET 5A EXAMPLE 
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NOTE: NODAL NUMBERS USED FOR B.C. 'S'ARE FOUND 

ON THIS FIGURE. 


(b) User-Generated Numbering System 


FIG. 12 CONTINUED 











NOTE: USER MUST GENERATE ELASTIC FOUNDATION NUMBERS FROM 

THIS NUMBERING SCHEME. ELASTIC FOUNDATION- frl 

COVERS ELEMENTS 9 AND 10. ELASTIC FOUNDATION #2 
COVERS ELEMENTS 13, 14, AND 15. ‘ SEE PAGE 52 AND 
CARD 16BB FOR EXPLANATION. 


(c) Computer Generated Global Numbering System 


FIG. 12 CONCLUDED 


















APPENDIX A 


GOVERNING EQUATIONS ON WHICH JET 5A IS BASED 


A.l Formulation for Variable-Thickness Arbitrarily-Curved Multilayer Beam 
Elements and Structures 


The geometry and nomenclature of a typical curved multilayer beam discrete 
element are shown in Fig. 3, where the deformation plane is ri»C and the coordi- 
nates ri along and C normal to the centroidal axis of a conveniently-chosen layer 
are employed as the reference coordinates of the multilayer -beam element. The 
slope, (j), of the reference circumferential axis, which is the angle between the 
tangent vector and the y-axis of the local-reference Cartesian coordinate may be 
approximated biy a second degree polynomial in ri as followss 




(A.l) 


where the constants b , b- , and b_ can be determined from the known initial geo- 

o’ V 2 — ^ 


metry of the curved beam element. Assume that the change in element slope between 
nodes i and i+1 is small so that 




(A.2a) 


and 




(A. 2b) 


This restricts the slope change within an element to ^ 15 degrees. The arc 


length, of the element is approximated to be the same as the length of a 


circular arc passing through the nodal points at the slopes «{)^ and 


is given by 


\ = 




Z si 


in(. 


t-i - 


) 


(A. 3) 


where is the length of the chord joining nodes 1 and i+1 and is given by 
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^72 




(A. 3a) 


and Yj, and are the initial Y and Z coordinates, respectively, of the ith 
node. The three constants in Eq. A.l are then determined from the relations 


=: J <(> = O 


(A.4) 




o . ^ 

From Eq. A.4, the constants in Eq. A.1 are found to be 


(A. 5) 


Accordingly, the radius of curvature, R, of the centroidal axis may be expressed 
as R = - (d(j)/3Ti) ^ = - (bj^ + 
centroidal axis are given by 


as R = - (d(j)/3n)~^ = - (b, + 2b n)"^, and the coordinates Y(ti) and Z(n) of the 


and 


r(’t) = X cos [ 4(\) + «■] ‘^1. 

o 

f’l 

7('^)= Z.+ J sin[<p(->l) ■+«] 


(A.'ba)' 


(A.6b) 


where 






The thickness variation of each layer is approximated as being linear 
between nodes; thus 




(A. 7) 


where subscript H is used to denote quantities pertaining to the S,th layer. 


a. '\> 


.1 « 

Employing the Bernoulli-Euler hypothesis, the displacement field v, w 

of the beam may be specified by the reference plane displacements v and w, 
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and the rotation, ip, as follows; 


where 


VV V 

R 


(A. 8) 


(A. 8a) 


To account for the strain- inducing modes and the rigid-body modes, the assumed 


displacement field takes the form: 

(wj "[■’Sin i> ccsi^ sin(<^-^o()-i‘(Y-.Yi) Cas 

o o ° Jt 

or in more compact matrix form, Eq. A. 9 becomes 




(jvs,(^) 



(A. 9) 


(A. 9a) 


The generalized displacements {q} are selected so that there are four degrees 
of freedom v, w, X ~ (3v/3ri) + w/R at each node of the element: 


where 


{f}=[y w. 

cos f. sirt <Pi O 

- sin cos^^ O 



\°- 

i 

» 

\o- 


(A^o) 

i, I 
I' ' } 

) ■ ■■ i 

^ Q 

6 



o 

o 

1 

O 

o 

o 

O 

1 

cos (p. 
^t+i 

sin (P. 

^53 


- s m <j> .. 

• t +1 

cos 4^ ., 

! ,'t+< 

i -t 


0 

o 

■i 

q 

1 

Wl 

Ti 

o 

O 

O 

/ 
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o 

o 

o 

o 

1 

b 

o 

o 

z 

o 

o 

o 

n. 




o 

O 

2?, 

3ti 



V 

Ti 


H 

(A.lOa) 




and 


\r i\~ X) ^i) “) 


(A.lOb) 


Corresponding to the assumed displacement field Eq. A.9» one finds 

y=Lo o I -J 5^* -1 = 


(A. 11a) 


and 


%=[ 


O O O I 




(A. lib) 


Under the Bernoulll-Euler hypothesis, the only nonvanishing strain com- 
ponent and corresponding stress component are the axial strain, C, and axial 
stress, (7. For this case, the nonlinear strain-displacement relation may be 


expressed as: 


(A. 12) 


where 




■)^m 


w 


. \ i r N/ 

r ) ^ R 


■) 


s 1 B.if «} 

Combining Eqs. A. 9 through A. 12, one obtains 


(A. 12a) 


(A. 13) 


and 




(A. 14) 
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where 


iqj=lB,j[uHA-] 


for i - 1, 2, 3 


(A.14a> 


and 


lB.J[U]=L° ° ° I 2^ 

lBj[Uj=L‘’ ° ' T*' i-K 3>t‘ ^V' 

lBjfU]-t 


O o o 


J 

♦-?/ -z - 4 ^ -zid-rV -3rV-TV"J 


(A.Ub) 


In the process of solution, it Is necessary to evaluate the strain incre- 

f\j 

ment Ae_^ from time t , to time t . Using Eqs. A. 12 and A. 14, one has 
m m-l m * 

(A.15) 


where 




(A. 15a) 


The consistent mass matrix of the 1th discrete element may be obtained 


(A. 16) 


from the expression for the kinetic energy, T^, as follows; 

T: = ~J f (v‘+ 

^ Vi v< 

where is the volume of the ith discrete element. The integration extending 
over the whole multilayer beam element is now performed by a summation of the 
Integrals extending over each individual layer. Thus, one has 

T; 


T=i] *[ V ^ 

‘ i 1 w > 

[yj 


(A. 16a) 


where 
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(A. 16b) 




lB]-i 


L 

2 : fc 


fi 


-ft 




O 


2 ^nd b is the width of the ring, h^(n) is the thickness of the Jlth layer, 
is the ri-dependent location of the centroidal axis of the )lth layer, and 
xs the mass per unit volttme of the Ath layer. All quantities pertaining to 
the ilth layer are denoted with subscript S., and the summation extends over the 
L number of layers. Equation A. 16b applies for ^/R negligible compared with 
unity. 

With the assumption that the velocity field is of a form which is con- 
sistent with the displacement function, Eqs. A. 9 and A. 11, one has 



VW 

G^(k) 




Substituting Eq. A. 17 into Eq. A. 16a, one has 


'[N] IBJ[N]J7 [A-]{i} 


(A. 17) 


(A. 18) 


T. = i-Lf 

where the consistent mass matrix [m] of the element is 

[m] = [A''] J [N] [B]fN]<it[A '] 


(A. 18a) 


(A. 18b) 


The equivalent generalized nodal forces which correspond to the extern- 
ally-applied loading can be obtained from the variational statement of the work 
of the externally-applied loading, 6W^: 

’ll 

I r- /_ r . r" /_ j. ^ ^ 1 1 

(A. 19) 

I ' wv - IX 

O 


JL 

5W. = j \ f^(’(,t)Sv Swj 

r% J 
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(A. 19a) 


where the components F and F of the force vector F are given by 

V w ^ 

= ^ + fwf’T) fjt) " 

The quantity F(r|,t) is the externally-applied time-varying forcing function. 

Substituting the assumed displacement function, Eqs. A. 9 and A. 10 into 
Eq. A, 19, one has ^ 

^ y(. (A. 20) 

■ s iff m “ 

= element generalized nodal load vector (A. 20a) 


The effective stiffness matrix supplied by the elastic restraints may 
be obtained from the variation of the work done by the elastic restoring spring 



V fv + ^ vv ^ 


(A:21). 


w 


-$\Ai = \iSv Sw ^y J[C]j 


V 

w 

vj 


d'X 


(A. 21a) 


where 


lc] = 


Ay O O 

o Ay, o 

o o A.. 


(A. 21b) 
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and and k^, respectively, are the linear elastic spring constants and k^ is 


the torsional elastic spring constant. 


Substituting the assumed displacement function Into Eq. A. 21, one has 


where 


-SW^-K, jlA'Tj ' [N]]clN)Jr[A"]|fl 

.1 


(A. 22) 


K] = [A''J7 iNf[C][N]^Y[A''] 


(A. 22a) 


= effective element stiffness matrix supplied by 
the elastic restraint 

The variation of the internal work 6u^ of the axial stress, a, may be 
expressed in terms of displacements and plastic strains, wherein the large 
deflection and plasticity effects are taken into account through the use of 
"effective generalized loadings"; thus 


SU = J cr Se =\E(e^?K-- dV 


V: 


V 


(A. 23) 


Employing the strain-displacement relations given by Eqs. A. 12 and A. 14, Eq.A»23 
becomes , 


-fci) 

where, assuming that ^/R is negligible compared with unity:* 


(A. 24) 






i 1-' 



D 


di 


(A. 24a) 


Otherwise, additional terms would be present. 
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E^ v« ¥» !>) “'? 

V‘ (t-JW^) ‘/’'>/»)>) J-j 



(A. 24b) 


(A. 24c) 



(A.24d) 

d^l 


and in the above, E^ is the modulus of elasticity of the ilth layer, and ^ is 
the plastic strain. 

Note that in the present analysis the integrations along the beam span 
are performed numerically by employing Gaussian quadrature vrhich requires the 
Integrand to be evaluated only at each selected spanwlse Gaussian station. At 
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each spanwlse station, the Integration of the plastic strain, through the 
thickness of each Individual layer, also requires evaluating ^ at selected 
Gaussian points across the thickness of each layer and the corresponding weight- 
ing factors are used in evaluating the pertinent Integrals by Gaussian quadrature; 
hence 


I 


/vf> . A 

e'^ds= 


— Z e^W- 


where 




(A. 25) 




ef 


= £ 


2 


and 


h 


h, 

V-r 






(A. 25a) 


and J denotes the number of Gaussian points that have been used for the thick- 
wise Integration through the cross section of each beam layer; and are 
the numerical values of the jth Gaussian station and weight, respectively. 

Since the strain-hardening behavior of the material is accounted for by 
using the mechanical sublayer model in which the material at each Gaussian sta- 
tion Is treated as consisting of equally-strained sublayers of elastic, perfectly- 
plastlc material with each sublayer having the same elastic modulus but an appro- 
priately different yield stress, the plastic strain at any station is calculated 
from the plastic strain of each mechanical-sublayer at that station. Let K mech- 
anical-sublayers be used to approximate the strain-hardening material behavior. 
Thus, one has: 

• 4 = 1 7 '^ 

^ -K 

e 


b 


Ay b 

= 


h 

£ 


IL 

z 


k 


(A. 26) 




where Cj^, the mechanical sublayer weighting factor, is defined by 




(A. 26a) 
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- 






(A. 26b) 


is the kth slope of the polygonal approximate stress-strain diagram. The 
quantities aj^, £j^ represent the coordinate defining the piecewise-linear 
approximation of the uniaxial stress-strain curve. 

An illustration of the method of computing the axial stress and plastic- 
strain increment of any mechanical sublayer of the material model at any span- 

wise or depthwlse Gaussian station, is presented as follows. One begins by 

i ■' 

ktiowlng the sublayer stress (a.,) , at time t , for the kth sublayer of the 

jk m— 1 m— 1 

jth depthwise Gaussian station, and the strain increment (Ae.) at station j 

at time t (that is, the strain Increment from time t , to time t ) . One then 
m m-1 m 

takes a trial value (superscript T) of (o., ) which is computed by assvDuing an 

jk m 

elastic path: 

T 


(fii = (%L 


(A. 27) 


/'m-l f '/” 

A check is then performed to see what the correct value of must be: 

y y T b 

If <:hen (cr \ -(a ) and (AS. ) =0 

“ C^h)^ > (O’) - O-^ and (A£ h = (A, 28) 

If (o!,) 0~ then (c ) ■= — (T . and zz ^ 

^ I 

i If desired, the sublayer yield stresses may be treated as strain-rate 

dependent. Since the strain increment at the jth Gaussian station and hence 

the strain rate is known at this stage of computation, then the rate-dependent 

yield stress a , of this kth sublayer at station j is 
yK , 


(T = (T 

yA pA 


(\ + 

&B/At 

K 

D 


(A. 29) 


where D and p are empirically-determined constants* for the material and may, 
in general, be different for each sublayer, is the static uniaxial yield 
stress of the kth sublayer at any jth Gaussian station and is defined by 


a . = E e, . 
ok k 


See the footnote on page 39. 
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Finally, by employing the standard finite-element assembling procedure, 
the resulting equations of motion for the "complete discretized structure" are 

where the nomenclature of each term is explained in Subsection 2.3. 

A. 2 Solution Procedure for JET 5A 

The Houbolt operator is a 4-point backward difference implicit operator 
and is chosen to solve the equations of motion expressed in the conventional 
form, Eq. 2.2. In this solution scheme, the {q*} at any instant of time t 


m+1 


are approximated by a 4-point backward-difference expression: 


{ i j~ ~ ~ «.3i) 


(juy 


Employing Eq. A. 31, the conventional form of the dynamic equations of equi- 
librium, Eq. A. 30, becomes 

(A. 32) 

r*NLi f*Li 

It should' be noted that the generalized nodal load vectors iF > . , , IF > 

*Nl q m+1 p m+1 

and {f } (which may be due to large-deflections and elastic-plastic effects) 
p m+1 

depend on the displacements (or stresses, strains) at the time instant 
but these remain to be determined; thus, linear extrapolation by using the 
generalized nodal load vectors at two previous time steps is employed to 
estimate these forces values; 
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<mMl ^{^ri) 


(A. 33) 


This estimation should be reasonably good for very small At but will deterio- 
rate with increasing At. 

In order to apply the calculation method represented by Eqs. A. 32 and 

j 

A.33, one must take into account the prescribed initial conditions, 

The following "starting procedure" for this method provides 
the generalized displacements at t^^ = lAt, and {q*} at a negative 

(fictitious) time instant ^ ~ lAt. 

By employing the following approximations; 


M 


and 


{f’h 


M -Hfl -{fh 


o(^iy 


(A. 34) 


(A. 35) 


one has 



= -if), 


(A. 36) 


(A. 37) 


S^^bstituting Eqs. A. 36 and A. 37 into Eq. A. 32 for m = 0 and approximat- 
ing the generalized nodal load vectors due to large-deflections and elastic- 
plastic effects at time step t^ by their values at time zero, one obtains 




where {q*} can be calculated from 

\ / (A. 39) 

Since the right-hand side of Eq. A. 38 is known, one can solve for {q*}^^. 
After the have been determined, {q*} ^ can be computed from Eq. A. 36. 

One can then proceed to calculate {q*}_ from Eqs. A. 32 and A. 33, then {q*}_, 

4m. «3 

{q*}^, etc. 
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APPENDIX B 

GOVERNING EQUATIONS ON WHICH CIVM-JET 5B IS BASED 


The governing equations for CIVM-JET 5B are similar to those discussed 
for JET 5A in Appendix A, except that (1) prescribed initial velocities and/or 
prescribed externally-applied forces acting on the containment/deflector ring 

I 

structure are not accommodated, (2) a diagonal linnped rather than a consistent 

mass matrix is used, and (3) ring/fragment impact and interaction must now be 

1 

taken into account. The new matters pertinent to CIVM-JET 5B are discussed 
in the following subsections, whose headings identify the principal subject 
matter. 

At this point it is useful to recall the general flow of information 
and computations in CIVM-JET 5B as depicted in Fig. 9. The key aspects of 
that process are discussed in the following subsections. 

B. 1 Equations of Motion of the C/D Ring Structure 

The equations of motion for the finite-element representation of the 
containment/deflector (C/D) ring structure are represented by Eq. A. 30 except 
that now {f*} = 0 and a diagonal lumped mass matrix is to be used; all other 
formulation and discussion in Appendix A prior to Eq. A. 30 also apply to 
CIVM-JET 5B. 

The rationale for employing a diagonal lumped-mass representation for 
the C/D ring structure which is to be subjected to fragment-impact attack has 
been discussed in Subsection 2.3, page 11. For the present multilayer, multi- 

i • 

material curved-ring element, a diagonal Ivimped-mass matrix is constructed 

c 

from the consistent mass matrix (m , Eq. A. 18b) according to the following 
rules (chosen for their convenience): 



1 = 

"’h + 

C 

no, 5 





ny 

i 


['"’as 

1 = 

C 

' #' 

3 
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/ \ 

c 

C 



( ”^55 ~ 

*^55 

+ '»'5, 




■ c- 

c 



( "’Jl = 


+ -Xt, 



/ \ 

c 



C 

( = 

m 

•77 

; <•'««> 


II 

This insures that 

+ (m__ 
L 55 


+ 

total mass of the 

DO L 


element; these quantities pertain to the "translational degrees of freedom 


Vi» w^, '^i+l’ remaining terms refer to the degrees of freedom 

^i' '^i+l' ^i+l' calculations indicate that the predicted 

structural response of an impulsively- loaded structure (a simple beam, for 
example) is rather insensitive to the type of mass lumping applied* to these 
degrees of freedom and compares well with that obtained by using the consis- 
tent mass matrix. It turns out also that the Eq. B.l mass limiping produces 

a (perhaps advantageous) smaller o) than does the consistent mass or the 

max 

footnote-cited (*) diagonal mass lumping. 

B,. 2 Collision-Interaction Analysis, Including Friction 

In the present collision- interaction analysis, the curved variable-thick- 
ness multilayer containment/deflection ring is represented by straight-line seg- 
ments (Fig. B.l): (a) to identify in a sinq>le and approximate way the space 

occupancy of the beam segment under Imminent impact attack and (b) to derive the 
impiact equations. The inertia effects of the impacted beam segments are taken 
into account by means of lumped-mass collision model; that is, the ring is 
treated as having only point masses lumped at each nodal station as indicated in 
Fig. B. 2. Other simplifying assumptions which are invoked in the present analy- 
sis are described in Subsection 2.2. 


» ' ■ ■ ... 

That is the liunping given by Eq. B^l wherein (m„) , (™ 44 )jr' 

and (®gg)T computed in a fashion analogous to that xndicateol in Eq. B,1 

for ^"*22^ l' ^*"66^L‘ 
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I For the lumped-mass collision model, the Impact-affected beam segments 
ar;e represented, as depicted In the exploded-line schematic of Fig. B.2, by con- 


(or 1+k-l), respectively* where the 


centrated masses m^, m^, ...» ® 

ring-fragment collision point is encompassed by the jth segment which is bounded 

by| nodal station j and j+1 a clockwise numbering sequence is used. In the 

collision analysis, it is convenient to resolve and discuss impulses, velo- 
cities, etc., for both of the fragment and the ring Impact-affected nodes in 
directions normal (N) and tangential (T) to the straight line segment j ; the 
positive normal direction is always taken from the inside toward the outside of 
the ring, while the positive- tangential direction is along the straight line 
from node j toward node j+1 (see Fig. B.2a). Consequently, the lumped-mass 

t 

velocities for each of the impact-affected nodes and the idealized-fragment 
velocities are expressed with respect to this local N,T inertial coordinate 

systen, as (v^^, , (V^^, , and (v^^, V^) In the 

ejq)loded schematic shown in Fig. B.2a. 

It is assumed that the instantaneous collision process results in a 

: ^ *\j 

normal-direction impulse p^^ and a tangentially directed Impulse p^ applied to 
the ring, and in equal but anti-parallel impulses to the fragment. The impulses 
applied to the ring are assumed to be distributed over the impact-affected 
nodes (see Fig. B. 2b) as 


C 

6 




Fn 


hT = c(' = Co<:% 


(B.2) 


where (see Fig. B.2b) the effective length , bounds the Impact -affected 

zotie of the ring, which is the fraction of the ring that responds with momentum 

j . 

changes due to the collision of a fragment, is the distance measured from the 
impacted point to the ith impact-affected node, and the constant, C, is deter- 
mined by assuming that the sum of the Impulse applied to each impact-affected 
node equals the total impulse imparted; thus. 


dne estimate for I^eff (called EFLN in the program) is = At (E/p) ^ where 

At is the finite-difference-calculation time increment and (E/p) is the 
largest longitudinal rod wave speed of the layers in the layered structure; 

E is the elastic modulus and p is the mass per unit volume. Another estimate 
from through-the-thickness stress wave propagation considerations is "L^ff = nh 
where h is the total thickness of the layered structure and n is some number, 
typically like 2 < n < 4. 
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(B.2a) 


Therefore, one has 

A 


'/i 


(X. 


(B.2b) 


The impact-affected nodes are those nodes located within the Impact affec- 
ted zone; that is However, it is asstimed that the two-mass nodes j 

and j+1 of the segment j which encompasses the impact point always respond to 
Impact with momentum changes, even if the distance from the impact point to 
one or both of the two nodes (j and j+1) is greater than L^££* 3 y be 

the distances measured from the "point of fragment impact" to masses and 
m^ respectively, as indicated in Fig. B.2. The distribution of the Impulses 
is estimated in the following manner: 


where 


where 


where 


a. 


(1) If 6 .> Lg££ and Y < L^££. then (Fig. B.2c) : 

“ P-^N ~ ^ Pn 
P,T = PjT = C < ^ 

(2) If 3 < L^££ and Y > then (Fig. B.2d): 

P<N= Pn 

~ ~ ^ *^4 Pt 

and C= </Z, < 


^4 = 


(3) 


If 3 > ^eff ^ ^eff’ (Hlg* B.2e) 

P(N " PfN ■ ^ ^ ^ I’m 

I’m - °<2 f»/ 

P,T= f^T =C>'^ 

Pit = = C ^ = C ^ 

c= i/(f+r) 


(B.3) 


(B. 3a) 


(B,4) 


(B.4a) 


(B.5a) 


(B.5b) 


(B.5c) 
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It should be emphasized here that the determination of which mass nodes 

fall within the impact-affected region is a discrete process in the sense that 

only mass node locations are considered instead of considering the true volume 

of mass included in the impact-affected region of the structure. Such an 

approximation is made necessary by the use of a lumped-mass model in the 

collision-interaction analysis. In essence, the use of a lumped-mass model 

implies that the nodal mass represents the mass distribution in a region of 

the structure surrounding the node, and, thus, by including a mass node in 

the impact-affected region, one is automatically including, in the impact- 

affected region, that portion of mass in the region of the node. It is clear 

that, in general, this approximate technique will result in having more or 

less structural mass included in the impact-affected region compared with the 

true structural mass within L However, in an average sense, this discre- 

ert 

pancy is within the overall approximate nature of the impact-interaction 
analysis. In addition, the calculation of which defines the distance 

the collision- imparted impulse "signal" travels in the structure during a 
fihite time interval, is based on the global increment in time. At. This 
implies that the collision occurs at the beginning of a time step, and that 
the "signal" travels for a length of time equal to At. In actuality the 
time of impact may occur at any moment within a At. However, as detailed 
in Subsection B.5, the impact interaction solution assumes that all impacts 
occur at the beginning of a time step. This approximation of counter- 

balances the discrete process of determining which mass nodes fall within' 
th6 impact-affected region. It is believed that these calculations, although 
approximate, will yield reasonable results for the fragment- impact- induced 
structural response . 

Denoting by primes the "after- impact" translational and/or rotational 
velocities, the impulse-momentum law may be written to characterize the 
"instantaneous impact behavior" of the system, as follows: 
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Normal-Direction Translation Impulse-Momentum Law 

« 0 

• • 

Tangential-Direction Translational Impulse-Momentum Law 


•"ffv 1 

1 

~ 

' 

(fragment) 

flV KJ 

•T 



r . / , 1 

1 'l' > 



■"'Nt-XtJ 

T M i 



(ring imoact-affected 


I='^Z K 

\ 

nodes) 


J= fr ; 

1 


Rotational Impulse-Momentum Law 



^ i ^ ^ (fragment) 

where ' 


(fragment) 


(B.6) 


(B.7) 


(ring impact-affected 
nodes) 


m^ = mass of the fragment 

If = mass moment of inertia of the fragment 
about its CG 

r^ = the radius of the circular disk model 
of the fragment 

p„ = normal-direction impulse 

n 

Pj = tangential-direction impulse 

= proportional constant which is equal to (Cap as defined 
by Eqs. B.2 through B. 5c. 

The relative velocity of sliding and the relative velocity of approach k' 
at the immediate "contact points" between the fragment (at Cp and the ring 
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segment j (at C^) are defined by 

VfN -[^ V,; V/ ; ] (B.12) 

Substituting Eqs. B .6 through b.o|o into Eqs. b. 11 and B.12t one obtains 

^ ~ ~ B/ tv (B.13) 

^ ~ (B.14) 

where the Initial (pre- impact) relative velocity of sliding S^, the initial 
relative velocity of approach A^, and the geometrical constants and B 2 are 
given by 


(B.15) 

(B.16) 




yni 


o(i 

rn, 


Of. 


+ 


m, 




2 ry\^ 


oci 


z 


(B.17) 


(B.I 8 ) 


where in Eqs. B.15 and b.16 by definition > 0; otherwise, the two bodies 
will not collide with each other. Also, if > 0, the fragment slides initi- 
ally .along the ring segment. It perhaps should be noted that sliding of the 
bodies on each other is assumed to occur at the value of "limiting friction" 
which requires that p^ = |ypj^[, and when p^<jypjj|, only rolling (i.e., no 
sliding) exists. For a given value of e and a given value of y which, respect- 
ively, describes the degree of "plasticity" of the collision process, and ac- 
counts for the frictional properties (roughness) of. the contact surfaces^, 
2(k+l)+3 equations (Eqs. B.6 - B.IO and Eqs. B.13 - B.14) can be solved to ob- 
tain the post- Impact quantities (V^jj, V^^) , (V^jj* V^^j,) > . • v » ’ 

^^fN’ ^fT^ 0 )^ as well as p^^ and p^; these are the 2 (k+1) +3 "unknowns". 

Vor y and e effects, see pages 335 and 336. 
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The graphic technique which provides a convenient way to obtain the 
values of p^j and p^ at the instant of the termination of impact as described in 
Ref. 5 is employed in the present collision-interaction analysis. In this tech- 
nique, the trajectory of an "image" point P in the plane formed by the impulse 
coordinates and p^ (Fig. B.3) represents the state of the colliding bodies 
at! each instant of the contact Interval. The image point P which is initially 

located at the origin and is denoted by p (p = p = 0) will always proceed 

r\P ^ ^ 

in the upper half -plane with Increasing p^^. The locations of the line of no 
sliding S' = 0 and the line of maximum approach A’ = 0 are determined by the 
system constants Bj, and B^. From Eqs. b. 13 through b. 18» it is noted that B^^ 
arid B„ are positive always; also the lines S' = 0 and A’ = 0 are parallel to the 

'\j ‘ ^ '\j 

p.L axis and the p_ axis, respectively, and intersect with each other at point P. 
iri the first quadrant of the p^^, p^ plane as shown in Fig. b, 3. Depending on the 
values of the coefficient of sliding friction y, the coefficient of restitution 
e, the system constants B^ and B 2 , and the initial conditions and A^, several 
variations of the impact process may occur and will be discussed in the following 


First, the cases in which the coefficient of sliding friction y ranges 
from 0<y<«> will be considered; the two special cases with y = 0 (perfectly- 
smooth contact surfaces) and y = «» (completely rough surfaces) will be discussed 
shortly thereafter. 


Case I; If 0<y<“>, the friction angle V and the angle A formed with the 
Pjj axis by the line connecting P^ and P^ are defined by 


and 



(B.19) 

(B.20) 


Initially, the image point P travels from point P^ along the path P^L which 
subtends an angle V with the P^^ axis because the limiting friction impulse 
p^ = yPjj is developed during the initial stage of impact. Subsequently: ' 

(a) if y = tan V < tan A (Fig. B.3a), line P^L will intersect 
the line of itiaxlmum approach A' = 0 at point P^, before _ 
reaching the line of no sliding S'* « 0. The intersection 
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point represents the state at the Instant of the termina- 
tion of the approach period. This is followed by the resti- 
tution period; the Impact process ceases at point P" (path 


p„-Pi-po. 


/V 


The coordinates of V' are* 

fN=Cl + ^)t’N, 

where the ordinate of point Pj^ is determined from 

the simultaneous solution of equations p^ = liPj^ and 
= 0, and is given by 
b = 

Pni 

(b) However, -if y = tan V > tan A (Fig. B. 3b), line P L will 
Intersect the line of no sliding S' = 0 first at the 
Intersection point P 2 which marks the end of the initial 
sliding phase. The image point P then will continue to 
proceed along the line of no sliding S'' = 0 through the 
Intersection point P^ with line A" = 0 to the end of 
impact at point P" (path P “ ^2 ” ^3 ~ final 

values of p^j and p^ are: 




N3 


P-r = 


B, 


where p^^^ ordinate of point P^ which represents 

the end of the approach period and is given by 

b _ 


B, 


The above solution process can be specialized to re- 
present the cases with y = 0 and y = «>. 


(B.21) 


(B.22) 


(B.23) 


(B.24) 

(B.25) 


(B.26) 


Case II: If y = 0 (perfectly smooth contact surfaces), line P L coalesces 

I o 

with the pjj axis. The image point P will move along the p^^ axis to the end of 


Coefficient of restitution e: perfectly elastic e = 1; perfectly plastic e = 0; 
and intermediate 0<e<l. 


338 




Impact. Thus 


Fn = o+e) 


B. 




K = o 


(B.27) 


(B.28) 


Case III ; If y = “ (completely rough contact surface) , point P moves 
initially along the P axis to the intersection with s" = 0, then will follow 

T 'Kj 'y, 

the line S = 0 to the end of impact. The post impact value of and p^ are 

i 

7' X A<, (B.29) 


/V/ 

tv = 


(B.30) 


B, 

Knowing the values of and p^ at the end of impact for the above 
discussed various impact processes » the corresponding post- impact velocities 
then can be determined from Eqs. B.6 through B.IO as follows: 

/ 


V.N = V.. 

m; 

V, 


2N 


IN 

= Mt ^ 

= '^N + 


V.T = V 


2T 






h 




<Kz Fn 

Tt 


Node 1 


Node 2 


(B. 31) 


(B.32) 


Xe; = 
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y.. = V, 


fN 
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co^ = 


fN 
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(B.34) 


Fragment 


Thus» this approximate analysis provides the post-impact velocity information 
for the impact-affected nodes of the ring and for the fragment so that the time- 

I 

wise step-by-step solution of this ring/fragment response problem may proceed. 
Note that these post- impact velocity components are given in directions N and T 
at each node of the idealized impact-affected ring segments; as explained later,, 

these velocity components are then transformed to (different) directions ap- 
propriate for the curved-ring dynamic response analysis. 

B.3 Prediction of Containment/Deflector Ring Motion and Position 

The timewise solution of the resulting equations of motion for the 
"complete assembled discretized structure", Eq. A.30^ may be accomplished by 
employing an appropriate timewise finite-difference scheme. The Houbolt opera- 
tor which is a 4-point backward difference implicit operator is chosen for use 
in the present analysis. In this solution scheme, the Iq ) at any instant of 
time t^ are approximated by a 4-point backward-difference expression: 

_ ^ ^ - ( f*L-S (B.35) 

Employing Eq. B.35, Eq. A. 30 becomes 


{rj 

> ■'m 


±NL1 


(B.36) 


r*NLi r*Li j r-o \ 

It should be noted that the generalized nodal load vectors iF j , iF > ,and i.F 

q m p m pm 

which may be due to large-deflections and elastic-plastic effects) depend on 


the displacements (or stresses, strains) at that time instant t , 

m 


but these 


^ A 

Now with {f} 


0. 
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remain to be determined; thus, linear extrapolatlori^ by using the generalized 
nodal load vectors at two previous time steps is employed to estimate these 
force values. Thus, one has 


(B.37) 


= (it)* 

It] follows that one can solve for since all of the quantities on the 

right-hand side are known. However, a fragment-ring collision may occur be- 
tween time instants t , and t ; this would require a "correction" to the 
. m-l m 


{q } found from Eq. B.37. 
^ m 

value (overs cript T) : 


Thus, one first uses Eq. B.36 to form a trial 




(B.38) 


Next, the collision inspection and correction procedures, which will be des- 
cribed in Subsection B.6, are performed to determine the actual displace- 

' jfe* 

ment increments {Aq } . Then, the actual displacement at the t is given by 

No such trial -and-correction procedure is needed if only prescribed external 
forces were applied to the containment/def lection ring. 

In order to apply the calculation method represented by Eqs. B.37, one 

must taken into account the prescribed initial conditions, {q} , {q} , and, if 

o o 

present, The following "starting procedure" for this method provides 

the generalized displacements {q*} at t^ = lAt, and {q*} ^ at a negative 
(fictitious) time instant t ^ ~ lAt. 


and 


By employing the following approximations: 

^ C(&i) 

{f*}, - 


f = 

^ Jo 


(iti 


(B.40) 


(B.41) 


Because of this extrapolation (aside from impact considerations themselves) the 
maximum time step which will lead to results of suitable engineering accuracy re- 
main unknown but clearly is limited although the Houbolt operator itself exhibits 
unconditional stability. , 
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one has 


(B.42) 


Substituting Eqs. B.42 and b. 43 into Eq. b. 37 for m = 1 and approximat- 
ing the generalized nodal load vectors due to large-deflections and elastic- 
plastic effects at time step t^^ by their values at time zero, one obtains 


where {q} can be calculated from 
o 




(B.44) 


(B.45) 


B.4 Prediction of Fragment Motion and Position 

In the present analysis, the fragment is assumed (see Refs. 3,4) to be un- 
deformable and, for analysis convenience to be circular; hence, its equations of 
motion for the case of no externally-applied forces are: 

(B.46) 


z = 

^ f 

e = o 

where (Y^,Z^) and (Y^, Z^) denote, respectively, the global coordinates 

and acceleration components of the center of 
gravity of the f^ragment (see Eig. B,2). 

0 represents the angular displacement of the 
fragment in the+u^ direction (Fig. B.2). 


(B;.47) 

(B.48) 
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In timewise finite-difference form Eqs. B.46 through B.48 become' 

where overscript "T" signifies a trial value which requires modification, as 
explained later, if ring-fragment collision occurs between and t^. 

By an inspection procedure to be described shortly, the instant of ring- 
fragment collision is determined, and the resulting collision-induced velocities 

I 

which are imparted to the fragment and to the affected ring segments are de- 
termined. in accordance with the analysis of Subsection B.2. 


B. 5 Collision Inspection and Solution Procedure 
B . 5 . 1 One-Fragment Attack 

The collision inspection and solution procedure will be described first 
for the case in which only one idealized fragment is present. With minor modi- 
fications, this procedure can also be applied for an n-fragment attack as 
discussed in Siibsection B,5.2. 


Equation B. 37 can be rewritten as follows 

<2 [M*]<-ff([K*]+[K, ])>{/} 

= - [W > 

y ^ mti 

in order to solve for a trial value of displacements at time step m+1, knowing 
the quantities at time step m. 




The following procedure, indicated in the flow diagram of Fig. 9, may be 
employed to predict the motions of the ring and rigid fragment, their possible 
collision, the resulting collision^ imparted velocities experienced by each, 
euid the subsequent motion of each body; 
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step 1 ; 


step 2 ; 


step 3; 









Le't it be assiimed at time t^ that the displacements 

{a*} , (Y^) , and (Z-) and displacement increments 

- m f m t m 

{Aq*} k (AY^) , and (AZ^)j^ are known. One can then 

I * ' * * ■ ■ , 

calculate the strain increments (Ae) at all Gaussian 

m 

stations along and through the thickness of the ring. 


Using a suitable constitutive relation for the ring material, 

the stress increments (Ao) and the plastic strain increments 

m 

(Ae^) at corresponding Gaussian stations within each finite 
m 

element can be determined from the known strain increments 

i 

(Ae) . This information permits determining all quantities on 
m 

the right-hand side of Eq. 52. 


Solve Eq. B.52 for the trial ring displacements {q*} then 

ij» ni*ri 

solve for the trial displacement increments, {Aq*} by using 

ni+1 

Eq. B.38, and use Eqs. B.49 through B.51 for the trial frag- 

T' T m 

ment displacement increments (Ay_) (Az.) and (A9) 

F m+1 t m+1 m+i 


The rino node velocities {q*} at time t are calculated 

m m 

by the following Houbolt ejtpression: 


Sk*l - HfL- * {f} 

^ 0 z 


Z At 


(B.53) 


if an impact has not occurred in the previous time step 
(post- impact corrections will be described below) . 

I. - . 

It is assumed that the fragment velocities, (Y,) , (Z^) , and 

f m f m 

(9_) at time t are known, 
f m m 

Since one or more ring-fragment collisions may have occurred 

between t and t . , , the following sequence of steps may be 
m m+1- 

employed to determine whether or not a collision occurred and, 
if so, to effect a correction of the displacement increments 
of the intact-affected ring segments and of the fragment. 
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step 4 ; 


Step 4a ; 


In the present scheme, several collisions may occur during 

a given global time step At = (t - t ) . This can be 

m+l m 

accommodated by repeating these checks until no further 
impacts can be found and corrected. Because the impact in- 
spection is most conveniently carried out in the global Y,Z 
coordinate system, one first transforms the nodal displace- 
ment vector at time global Y,Z co- 

ordinate system; note that {q*} is the trial value ob- 
tained from Eq. B.52. The fragment information is already 

in the global Y,Z system and the values at time t , are 

m+l 

found' from the following equations; 


(\)„„ -- (%)„ 


(B.54) 


Having completed these initializations, the following sequence 
of substeps may be employed to determine whether or not a col- 
lision occurs within the At. 

! 

To check for the possibility of a collision between the frag- 
ment and ring element j (approximated as a straight beam) as 

... . T 

depxcted in Fig. B.5, compute the trial projection (p.) 

3 m+l 

of the line from ring node j to point at the center of 
the fragment, upon the straight line connecting ring nodes j 
and j+1, as follows, at time instant t 


T T" 


(B.55) 


where is the angle measured counterclockwise from the 
global Y axis to the vector from node j to node j+1 and where 
the Y,Z are inertial Cartesian coordinates obtained from 
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step 4b ; 


Step 4c ; 


T T T 

{<3*} (Y) .1 etc. Now, examine (p.) three cases are 

^ m +1 m+X *^3 m +1 

illustrated in Fig. B.5a. 

I T m 

lif (p.) < 0 or if (p.) ,, > i. where £ . > 0 , a collision 

between the fragment and ring element j is impossible. Proceed 

I 

to check ring element j+ 1 , etc,, for the possibility of a colli- 
sion of the fragment with other ring elements. Note that 5-^ is 

the length of the jth element at time t ... 

m +1 

T 

If 0 < (p.) < Jl., a collision with ring element j is possible 

j — 3 m +1 — 3 

and further checking is pursued. Next, calculate the fictitious 

T 

"penetration distance" fragment into ring element 

j at point by (see Fig. B.5b) ; 


ft 


where 




i 


(B.56) 


[^(h . + h . ) I = average distance from the reference surface 
to the inner surface of the ring element 
which is approximated as a straight beam in 
this "collision calculation". 

r^ = radius of the fragment 


(B.57 






cos 

I 


= the projection of the line connecting node j 
with the center of the fragment upon a line 
perpendicular to the line joining nodes j and 
j+ 1 . 

T 

Next, examine which is indicated schematically in 

Fig. 5b and is given by Eq. B.56. 


346 


ir ■■ 




Step 5 ; Title impact with the largest penetration is corrected first. 

The fragment and nodal position are returned to their loca- 
tion at the beginning of the time step, i.e., time t . Then, 

! m 

the impact is always assumed to occur at the beginning 6f a 
time step regardless of when the "actual" time of contact 
occurred. 

Based on the collision-interaction analysis developed in 

Subsection B,2, the post-impact velocities of the impact- 

affected ring nodes and the fragment are now calculated. 

That is, the pre-impact nodal velocities ({q*} at time t = t^) 

and fragment velocities {Y_# Z_# 6_ at time t + t ) are 

r X r m 

updated to their post-impact values, using Eqs. B.31 through 
B.34. 

(Note that Eqs, B.31-B34 are written in terms of an N,T coordi- 
note system, as defined in Subsection B.2. Thus, the nodal 
and fragment velocities, assumed to be in the global Y,Z co- 
ordinate system prior to the collision- interaction analysis, 
must be transformed into the N,T system at the start of the 
collision- interaction analysis, and the resulting post-impact 
velocities, . calculated in the N,T system via Eqs. B.31-B.34, 
must then be transformed back to the global Y,Z system after 
completion of the collision-interaction analysis.) 

For convenience, the post-impact velocity infojnmation, in the 
global Y,Z coordinate system, is assumed to "replace" the pre- 
impact velocity information. Thus, the quantities {q*} , (Y ) 

I . . m t m 

(:Z_) , and (0_) now refer to the post-impact velocity of the 
r m r m 

ring-nodes and fragment at the time of "assumed contact", t . 

IQ 

step 6 ; A new trial displacement is now calculated using 

Eq. B.52 amd the new post-impact-corrected nodal velocities 

IQ 
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St, ep _J.i 


Step 8 i 


^ decision must now be made concerning whether or not to con-r 
tinue on to another collision inspection. The collision inspec- 
tion/correction process is repeated if the number of collision 
inspection/corrections within the current At has not exceeded a 
specified maximum (equal to 5 per fragment in the present 

I 

analysis). If this condition is violated, the program will 

! ' ' 

immediately proceed to Step 8. Otherwise, the program 

pjroceeds to Step 4. 

The delta quantities are now calculated for both the nodal and 
fragment displacements (i.e., “ ^Sa+1^~ 

calculation occurs regardless of whether or not an impact 
occurred during the time step) . The program now returns to 
the MAIN subprogram. 


Step 9 i 


The nodal velocities at time t ,, are now calculated, 

m+1 


If no 


impact occurred during the previous time step, then Eq. B.53 

is used to calculate {q*} However, if impact occurred in 

i m+i 

I 

the previous cycle, then Eq. B.53 is modified for all of the 
translational velocities'*^^ only. To find from Eq. B.53, 


it is necessary to know {q*} 


m-l‘ 


This quantity, as previously 


stored by the program, has no meaningful value because impact 


has occurred since t 


m-1* 


To approximate {q*} , a definition 

m— 1 


is given for the post -impact velocity {q*} as follows: 

m 

, {fl.,- M.., 

2 At 



(B.58) 


Solving Eq. B.58 for {q*} , and substituting this value into 

m— 1 

Eq. B.53, the following expression for the updated translational 


The specified maximum has been included to prevent the program endlessly 
looping at this point due to the use of a large At by the user and the fact 


that internal forces (-{.F }, {F }, and {F }) in Eq. B.52 are extrapolated 

Q P P 

quantities, not updated within a At. 

*"^Velocities associated with D.O.F. *s ip and x are still calculated using 
Eq. B.53 only. 
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■*L, 


r*NLi 


velocities is found: 



I 

I 

At this point, a new set of strains is calculated and used 

to find the internal forces. With this quantity and the 

velocity at t a trial value of {q*} can be obtained 
m+x iti+^ 

from Eq. B.52 cuid the program returns to Step 4. 


This solution procedure may be carried out for as man time steps as de- 
sired or may be terminated by invoking the use of a termination criterion such 
as, for example, the reaching of a critical value of the strain at the inner 
surface or the outer surface of the ring. Appropriate modifications of this 
approximate analysis could be made, if desired, to follow the behavior of the 
ring amd the fragment after the initiation and/or completion of local fractur- 
ing of the ring has occurred; however, this has not been done in the present 
program. 

Finally, note that it is possible for the fragment to come in contact 
with two ring elements simultcineously. In this situation, a correction would 
beimade for the lower-numbered element first as noted in Step 5. A "flag" 
is set to indicate a simultaneous impact and these corrections are made 
before Step 6 is executed. A similar situation occurs when multiple fragments 
impact the ring simultaneously, as will be discussed in the next subsection. 

B.5.2 N-Fragment Attack 

In the case of "attack" by n idealized fragments, each with its individual 
mfi r^, 0)^, V^, and a similar procedure is used. During each At, the 

collision-inspection procedure is carried out for every fragment; none, some, 
or i all of these n fragments may have collided with one or more of the ring seg- 
ments. If any positive penetration distcuices are computed, the calculation of 
ring-fragment contact time will follow for each element and each of the n 
fragments in turn. This calculation sequence will identify the first ring- 
fragment contact within At, and the fragment number cind element number involved 
in the collision. The appropriate corrections, as a result of this collision. 
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will be made, and the process will be repeated. The same fragment or a differ- 
ent fragment may collide with the ring structure; the appropriate corrections 
will then be made for this collision. This process is repeated until (1) more 
than 5 ring-fragment collisions occur for a given fragment, or (2) no more ring- 
fragment collisions are found within the global time step, At. After all of 
the corrections have been carried out for the present At time intervals, the 
calculation process of Pig. 9 proceeds similarly for the next At. 

Note that it is possible for two or more fragments to impact the ring 
structure simultaneously. This plausible situation is accommodated in the 
present scheme. Because of the "flagging” scheme discussed in the previous 
subsection, the collision involving the lower fragment number will be corrected 
for first. Corrections will be made for all fragments involved in the simul- 
taneous impact, before Step 6 is executed. In essence, the ring structure and 
fragment positions remain unaltered while a series of corrections is made, 
corresponding to all of the fragments which impact simultaneously. 

Finally, it should be noted that no provisions have been made for col- 
lisions (or interactions) between the fragments themselves.- Thus, all collisions 
(and s\ibsequent interactions) are assumed to be between a fragment and the ring 
structure . 

B.6 Ring-Fragment Collision on or Near a Constrained Node 

The impact-interaction analysis presented in Subsection B.2 is based on 
the assumption that all nodes within the impact-affected region are free to 
respond with velocity changes as a result of ring-fragment collision. If 
any of the nodes within the impact-affected region are constrained, then the 

I 

analysis of Subsection B.2 must be modified slightly. These modifications, 
and their subsequent application to the present analysis, are described in 
the present subsection. 

For the present analysis, assume that one of the nodes within the impact- 
affected region is constrained such that no normal or tangential motion is 
permitted. Denote this node number by the subscript "c". At node c, the 
constraint will contribute a reaction force (or reaction impulse) so that 
the translational impulse-momentum relations (Eqs. B.7 and B.9) at node c 
piust now be written as 
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j 

where the additional terms p!' and are the reaction impulses at node c in 

N T 

the normal and tangential directions, respectively. The pre-impact veloci- 
ties, and V^, must be zero and because of the constraint, the post*" 
impact velocities must also be zero, thus Eqs. B.60 state that the restraint 
"absorbs” all of the impulse associated with the constrained node. 

The analysis developed in Subsection B.2 can be followed exactly if the 
value of a for the constrained node is set equal to zero, i.e. 



This is equivalent to introducing equations of the form of Eq. B.60 and 
immediately solving for the reaction impulse, which yields a total value of 
Zero on the right-hand side of Eq. B.60. in practice, the use of Eq. B.61 
allows one to treat the special case of impact on or near a constrained node 
within the freunework and equations developed in Subsection B.2. 

It should be noted that the quantity a' for the constrained node is not 
set equal to zero. This quantity defines the relative portion of the total 
imparted impulse which is associated with a given node which lies within the 
impact-affected region, and is calculated by using Eq. A. 31 whether or not 
the node is constrained. In general, the constrained node may fall anywhere 
within the impact-affected region. Because of the character of the present 
impact interaction analysis in which only translational (not rotational) 
motion of the ring is considered (both translational and rotational motion 
are included in the global timewise solution) , it is difficult to include 
the effects of impulse propagated past the constrained node. For the case 
where the node is ideally clamped, no information can propagate through the 
constraint. But if the node is pinned-fixed, rotational information could 
propagate past the constraint; to accommodate this situation, rotational 




= ^cK - I’t 


(B.eoa) 


(B.60b) 
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effects would have to be included in the anal.Ysis of Subsection B.2. An 
alternate, interim measure is taken in the present analysis, and is described 
next. 

Assume that the point of contact and the effective length, are 

such that the constrained node and nodes beyond the constrained node fall 
within the impact-affected region. Because the analysis of Subsection B.2 
cannot predict the propagation of impact information past the constrained 
node, the effective length, is' the present scheme, artificially 

reduced (for the current At only) in such a way that the constrained node 
falls within the impact-affected region but no nodes past the constrained 
node fall in the impact-affected region. Having redefined in this 

fashion, the equations of S\absection B.2 are then followed exactly with Eq. 
B.6'1 being employed at the constrained node. This approach has the effect 
of concentrating the impact- induced impulse at those ring nodes on the 
impacted side of the constraint, with a portion of the impact- induced impulse 
being absorbed by the constraint, and no impulse being felt at nodes beyond 
the constrained node. However, it should be recognized that, although no 
impulse information is passed through the constrained node by the impact 
interaction analysis, the impact information will propagate through the 
constrained node, if physically possible, in the global timewise structural 
response solution. 

For the case where impact occurs directly on a constrained node, only 
that constrained node is assumed to lie within the impact-affected region. 
Following the equations in Sxabsection B.2 and employing Eq. B.61, the frag- 

i 

ment will simply rebound (as if impacting a rigid wall) and the ring struc- 
ture will experience no momentum changes for this impact. 

t 

Finally, it should be noted that the present approach is an interim 
measure, and further effort is required to develop a more comprehensive 
approach for treating impact near a constrained node. However, the present 
method is believed to be sufficiently general, within the current overall 
assumptions of the analysis, to yield reasonable results for current engineer 
ing applications. 
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RING CONTOUR 


IDEALIZED FOR COLLISION ANALYSIS 
ACTUAL 



FIG. B.l IDEALIZATION OF RING CONTOUR FOR COLLISION ANALYSIS 
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NODE 2 



FIG. B.4 IDEALIZATIONS AND DEFINITIONS FOR CALCULATION OF TIME 
OF RING-FRAGMENT CONTACT 



(a) Projection Inspection 



FIG. B.5 INSPECTION FOR DETERMINING A COLLISION OF THE FRAGMENT WITH THE RING 



APPENDIX C 


SUMMARY OP THE CAPMILITIES OF MIT-ASRL COMPUTER CODES FOR PREDICTING 

TWO-DIMENSIONAL LARGE-DEFLECTION ELASTIC-PLASTIC TRANSIENT 
RESPONSES OF RING STRUCTURES 

This description is intended to provide for the reader a convenient 
teibular summary of the principal featiires and capabilities of the two- 
dimensional transient large-deflection elastic-plastic structural response 
ring codes JET 1 (Ref. 1*), JET 2 (Ref. 2), JET 3A-3D (Ref. 3)', CIVM-JET 4B 
(Ref. 4), and JET 5A and CIVM-JET 5B (Ref. 5) developed under NASA NGR 22- 
009-339; the status of code availability is also indicated. 

The JET 1 code of Ref. 1 pertains to single- layer complete, uniform- 
thickness, initially-circular rings of either temperature- independent or 
temperature dependent material properties. These rings may be subjected 
to prescribed ; (a) initial velocities, (b) transient mechanical loading, 
and/or (c) steady nonuniform temperatures. The finite-difference method 
employed in this code had been shown previously (Ref. 6) to provide reliable 
predictions for the case of temperature- independent material properties. 

The JET 2 code was written in order to extend this finite-difference 
analysis capability to treat multilayer rings — cases anticipated to be 
of future concern. In the interests of efficiency and the minimization of 
computer storage requirements, temperature-dependent material properties 
and thermal loading features were omitted from JET 2; if these omitted 
features should turn but to be needed, they could be added later. 

Since the JET 1 and JET 2 codes pertained to initially-circular, 
complete rings of uniform thickness whereas there was interest also in 
variable-thickness , arbitrarily curved, partial as well as complete rings, 
the JET 3 series of codes was developed. To accommodate these latter 
features as well as a variety of types of (1) boundary conditions, (2) 
elastic-foundation supports, and (3) point elastic supports, the more 
versatile finite-element analysis procedure was developed and employed. 

These references are identified in the reference list at the end of 
Appendix C. 


For efficiency and user convenience, fovir versions of the JET 3 program 

i 

were developed; each version accommodates both complete rings and partial 
rings. JET 3A and JET 3B pertain to uniform-thickness, initially-circular 
rings, and employ, respectively, the central-difference and the Houbolt | 
finite-difference time operator; for certain cases, the latter finite- 
difference time operator may permit more economic converged transient 
response predictions than the former. The codes JET 3C and JET 3D are 
corresponding codes which accommodate variable- thickness, arbitrarily-curved 
rings . 

In most of these codes (JET 1 through JET 3D, and JET 5A) , the stimuli: 
(1) initial velocity or impulse conditions and/or (2) transient mechanical 
loading must be prescribed by the user or analyst. The externally-applied 
forces experienced by a complete or a partial ring from fragment impact are 
not provided within these codes. The user must supply his own estimate of 
the distribution and time histories of these forces. However, in the 
CIVM-JET 4B and CIVM-JET 5B codes, fragment/ring interaction and response 
effects are handled internally automatically for the idealized single- 
fragment and n-fragment cases provided and discussed in the Appendices of 
Refs. 4, 5, and 7. 

The CIVM-JET 4B code (Ref. 4) was developed from a modified version 
of the JET 3C code, using the central difference timewise operator. The 
CIVM (£ollision j^mparted velocity method) handles a fragment- structure 
impact as a series of quasi-static momentum transfers between the attack- 
ing fragment and the local-impact-affected portion of the impacted structure. 
The solution proceeds as though a series of impulses has been applied to the 
impacted region of the structure. This code provides strain output at each 
Gaussian station, nodal location, and designated "additional points" for 
user convenience, and calculates the reaction forces at each constrained 
degree of freedom. Another feature of this code is the ability to accommo- 
date branches which are used as additional structural supports. These 
branches can have material properties either the same or different from 
those present in the main structure. 

The JET 5A and CIVM-JET SB codes (Ref. 5) were written in order to 
extend the capabilities of the JET 3D and CIVM-JET 4B codes to multilayer 
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structures which are assumed to be hard-bonded and to deform in the 
^ernoulli-Euler fashion. Both codes (JET 5A and CIVM-JET 5B) contain the 
Houbolt timewise operator as well as the additional strain and reaction 
force output and structural support capabilities utilized in the CIVM-JET 4B 
code. 

In convenient tabular form, the principal features and capabilities 
of the codes JET 1, JET 2, JET 3A-D, CIVM-JET 4B, JET 5A, and CIVM-JET 5B 
are given in the tabular summary on the following pages. 

With respect to predicting ring structural response to fragment impact, 
note that codes CIVM-JET 4B and CIVM-JET 5B apply. The former pertains 
only to single-layer rings and employs the central-difference time operator, 
while CIVM-JET 5B applies to hard-bonded multilayer Bernoulli-Euler rings 
(including single layer rings) and utilizes the Houbolt finite-difference 
time operator. Thus, for single layer rings one could use either CIVM-JET 4B 
or CIVM-JET 5B, whereas only CIVM-JET 5B applies to multilayer rings. 

With respect to deciding which of these two codes should be chosen to 

analyze fragment- induced structural response of single-layer rings, the 

following can be taken into consideration. CIVM-JET 4B utilizes the very 

compact and efficient unconventional formulation of the ring's equations 

of motion and hence involves minimum computations and storage per time step 

of calculation; on the other hand, this code utilizes the central difference 

time operator whose maximum time step size is limited to about At < 1.6/oj 

max — max 

where OJ is the highest frequency of the linear elastic behavior of the 
structural model employed, unless impact- interaction convergence dictates 
a smaller value — a condition not encountered thus far in calculation 
examples explored. Since CIVM-JET 5B uses the conventional form of the 
ring's equations of motion, more computations and storage per time step of 
calculation are needed than in CIVM-JET 4B; however, CIVM-JET 5B employs 
the Houbolt finite-difference time operator which permits one to use a 
time step size At larger by a factor of perhaps 3 to 10 or more than 

i .. 

permitted by CIVM-JET 4B's central-difference operator unless the impact- 
interactions and convergence impose a more stringent limit. Because of 
these tradeoffs , it is not clear which of these two codes will be the more 


efficient one for obtaining reliable converged predictions of impact-induced 
structural response of single-layer rings; it appears that further computa- 
tional experience on various example problems will be needed before a clear 
choice can be made. However, on an equal-cost basis, experience to’ date 
indicates that one must use for CIVM-JET 5B a At at least 5 times as large 
as I the maximum time step size permitted in CIVM-JET 4B to be competitive. 

In one example a 10- times larger At resulted in a CIVM-JET 5B prediction 
that failed to converge. Thus, until further computational experience has 
accumulated sufficiently, it would be advisable to begin with CIVM-JET 4B 
for analyzing "new problems" unless an intolerably small At is encountered, 
since this code exhibits usually a dramatic warning (computational blow up) 
when the chosen At is too large, whereas CIVM-JET 5B does not usually afford 
clear telltale signs of ill-behaved computations. With this CIVM-JET 4B 
starting point as guidance, one could explore the utility of employing 
CIVM-JET 5B with a time step size of perhaps 5 to 10 times larger. 

i For the analysis of ring response to prescribed external transient 
loads or to prescribed distributions of initial velocity (rather than 
fragment impact- induced response), similar considerations to those just 
discussed apply concerning the analysis of single- layer rings by JET 3C 
(which uses the central difference time operator) versus JET 5A (which 
employs the Houbolt operator) ; for these kinds of problems, experience 
to date indicates that response predictions of a given accuracy can be 
obtained more efficiently by using JET 5A's larger allowable At (i.e. by 
a factor of perhaps 6 to 10 or more than permitted by JET 3C) . Finally, 
even for the analysis of single-layer rings for this class of (nonTimpact) 
problems, the use of the more recent and versatile JET 5A computer program 
is recommended over the use of JET 3D even though both of these codes employ 
the Houbolt operator. 
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Feature 


Feature 

JET 1 
(Ref.l) 

JET 2 
(Ref. 2) 

JET 3A 
(Ref. 3) 

JET 3B 
(Ref. 3) 

JET 3C 
(Ref. 3) 

Type of Spatial 
Analysis Formulation 
Finite Difference 

X 

X 




Finite Element 



X 

X 

X 

Type of Finite-Difference 
Time Operator 

Central Difference x 

X 

X 


X 

Houbolt (Backward 
Difference} 


«• 

- 

X 

- 


X 

X 

X 

X 

X 

Partial Ring 

- 

- 

X 

X 

X 

Initial Configuration 
Circular 

X 

X 

X 

X 

X 

Arb. Curved 

- 

- 

- 

- 

X 

Constant Thickness 

X 

X 

X 

X 

X 

Variable Thickness 

- 

- 


- 

X 

Single Layer 

X 

X 

X 

X 

X 

Multilayer Hard- 
Bonded (1 to 3 


X 

«• 



layers) 

Boundary Conditions 
Ideally Clamped ■ 



X 

X 

X 

■ Hinged Fixed 

- 

- 

X 

X 

X 

Symmetry 

- 

- 

X 

X 

X 

Free 


am 

X 

X ' 

X 

Other Support Conditions 
Distributed Elastic 
Foundation 



X 

X 

X 

Point Elastic Springs 

- 

- 

X 

X 

X 

Structural Branch 

- 

- 

- 

- 

- 


JET 3D 
(Re£.3) 


CIVM-JET 4B 
(Ref. 4) 


JET 5A 
(Ref. 5) 


CIVM-JET SB 
(Ref. 5) 



X 


X 

X 

X 

X 

X 

X 

X 


X 

X 

X 

X 

X 

X 

X 


X 


X 


X 


X 


X 

X 


X R 


X X 

X X 

X X 

X X 

X X 

X X 

X X 

X » 

X X 

X X 

X “ 

X X 

X X 

X X 



X 

X 


X 


X 


X 




Feature 


JET 1 JET 2 JET 3A 


Material 

Single Material x 

Different for Each I.ayer - x 

Homogeneous x 

Initially Isotropic x 

Temperature Independent x 

Temperature Dependent x 

EL X 

EL-PP X 

; EL-LSH X 

EI.-SH X 

EL-SH-SR X 

Stimulii 

Initial Velocity 


Arbitrary 

X 

X 

X 

Half-Sine over each 
of Selected Regions 

X ' 

X 

X 

Mechanical Loading 
Arbitrary Spatial 
Distribution with 
Arb. Time History 


X 

X 

Half-Sine over each 
of Selected Regions 

X 

X 

X 

Triangular Time 
History 

X 

X 

X 

Arbitrary Time 
History 

- 

X 

X 

Thermal Loads (Temp. 
Distribution) 

Distribution Thru 
Thickness 

X 

, 


Time-Independent 
Prescribed Circum- 
ferential Distribu- 
tion 

X 



Impacting Fragments 
Single 

•m 


- 

Multiple 

- 



Friction 
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Feature 


JET 1 JET 2 JET 3E JET 3B JET 3C JET 3D 


CIVM-JET 4B 


JET 5A CIVM-JET $B 


■ Def.teeti.ons; Beraoulli-EuZer 
Type Only 

Small X XX x'x x x x x 

Arbitrarily Large xxxxxx x x x 


! OUTPUT INFOPMATXON 

I 

l At Selected Tines 
[ Energy/Hork Type aitd 


1 Ainount 

Nodal Station Data 

X 

X 

X 

X 

X 

X 


X 

X 

X 

txjcatlons Y,Z 

X 

’ X 

X 

X 

X 

X 


X 

X 

X 

Displacements 

r 

m 

X , 

X 

X 

X 


X 

X 

X 

Moment Resultant 
Circum. Force 

' X 

X 

X 

X 

X 

X 


X 

X 

X 

Result 2 uit 

X 

X 

X 

X 

X 

X 


X 

X 

X 

Circumferential Strains 











Inner Surface 

X 

X 

X 

X 

X 

X 


X 

X 

X 

Outer Surface 
Location where Pre- 
scribed Value is 

X 

' X 

X 

X 

X 

X 


X 

X 

X 

Exceeded 

- 

X 

X 

■X 

X 

X 





Strain at Gaussian 








X 

X 

X 

Stations 

* 










Strain at Additional 
Location 

- 

- ' 

- 

- 

- 

- 


X 

X 

X 

Support Reaction Forces 

• 



* 




X 

X 

X 

At Certain Other Times 











Time of First Yielding 
T.ime when Strain First 

X 

X 

- 

m 

- 

- 


- 

- 

- 

Exceeds a Prescribed 
Value 


X 

X 

X 

X - 

X 


■ 



Time, Location, and 







• 




Value of Largest 
Strain Reached Dur- 








(For Bach 

Substructure) 


ing Rim 


*• 

X 

X 

X 

X 


X 

X 

X 

CAPACir/ INFORMATION 











Maximum No. of Finite- 
Difference Stations* 

100 

100 

a. 

« 

•• 



* 



Maximum No. of Finite 
Elements* 

- 

- 

SO 

50 

50 

so 


50 

50 

50 




These lloits can be circumvented by altering the dlMnsiene of appropriate 
program variables (sea each source reference) . 





0 




Code 


JET 3 


CIVM-JET 4B 


JET 5A 


CIVM-JET 5B 


PLATE and 
CIVM-PLATE 


STRUCTURAL RESPONSE COMPUTER CODE STATUS 


Capability 

2-D Single-Layer Beams and 
Rings Subjected to Prescribed 
Transient Loads or Initial 
Velocity Distributions (No 
Fragment Impact) 


2-D Single-Layer Beams and 
Rings Subjected Only to 
Fragment Impact 


2-D Multilayer Bernoulli-Euler 
Beams and Rings Subjected to 
Prescribed Transient Loads or 
Initial Velocity Distributions 


2-D Multilayer B-E Beams and 
Rings Sub j ected Only to 
Fragment Impact 


3-D Single-Layer Initially- 
Flat Panels Subjected, Respec- 
tively, to (1) prescribed 
Transient Loads and/or Initial 
Velocity Distributions or (2) 
Fragment Impact Only 


Status 


Availability 
Complete a 


(Ref. 3) 




Complete 
(Ref. 4) 


“b 


Complete 
(Ref. 5) 


Complete 
(Ref. 5) 


In Progress 


a: Available from COSMIC, Barrow Hall, University of Georgia, 

Athens, GA. 30601; contact MIT for errata. 

b: Available under a copyright licensing agreement from MIT. 

Contact Prof. E.A. Witmer, Room 41-21^5, MIT, Cambridge, 

MA. 02139. 

c: JETKRef. 1) and JET 2 (Ref. 2) have not been maintained and 

are available only from the listings in the cited references ; 
in turn, these references are available only from the National 
Technical Information Service (NTIS) , Springfield, VA. 22161. 
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APPENDIX D 

SUMMARY OF GAUSSIAN NUMERICAL INTEGRATION OR QUADRATURE 

Gaussian numerical integration (or quadrature) is a convenient and 
efficient method for the numerical evaluation of line, surface, and/or volume 
integrals. For one-dimensional (or line) integration, Gaussian numerical 
n-station integration is of the form [14, Ch. 8] : 


d /=' 


(D.l) 


where 


Hi, H^, . 


P(Xj) 


. . , are tabulated weighting factors associated with 
sampling IcO^-^ions j=l, 2, ..., n. 

represents the value of F(x) at prescribed unequa 
spaced "samx->ling stations" (or a^ = x^) for 


j— 1, 2, • . . , n 

Pbr n-station Gaussian quadrature, polynomials of degree 2n-l and smaller are 
integrated exactly [14] . Sampling locations a^ and weights follow for the 
Gaussian numerical integration evaluation [14-17] represented by Eq. D.l for 
h=2, 3, 4, 5, 6, 7, 8, 9, auid lO (values for n up to 96 may be found in 
Ref. 16) : 


Station 


Weight 


n = 2 


0.57735 02691 89626 


1.00000 00000 00000 


n = 3 

0.77459 66692 41483 0.55555 55555 55556 


0.00000 00000 00000 


0.88888 88888 88889 


n = 4 

0.86113 63115 94053 0.34785 48451 37454 


0.33998 10435 84856 


0.65214 51548 62546 
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station 


+a 


Weight 

H 


oj 

90617 

98459 

38664 

n 

= 5 

0.23692 

68850 

56189 

0. 

53846 

93101 

05683 



0.47862 

86704 

99366 

0. 

iOOOOO 

00000 

00000 



0.56888 

88888 

88889 

0. 

1 

193246 

95142 

03152 

n 

= 6 

0.17132 

44923 

79170 

0. 

66120 

93864 

66265 



0.36076 

15730 

48139 

0. 

23861 

91860 

83197 



0.46791 

39345 

72691 

0. 

94910 

79123 

42759 

n 

= 7. 

! 

0.12948 

49661 

68870 

0. 

74153 

11855 

99394 



0.27970 

53914 

89277 

0. 

40584 

51513 

77397 



0.38183 

00505 

05119 

0. 

00000 

00000 

00000 



0.41795 

91836 

73469 

0. 

96028 

98564 

97536 

n 

= 8 

0.10122 

85362 

90376 

0, 

79666 

64774 

13627 



0.22238 

10344 

53374 

0. 

52553 

24099 

16329 



0.31370 

66458 

77887 

0. 

18343 

46424 

95650 



0.36268 

37833 

78362 

0. 

96816 

02395 

07626 

n 

= 9 

0. 08127 

43883 

61574 

0. 

83603 

11073 

26636 



0.18064 

81606 

9485? 

0. 

61337 

14327 

00590 



0.26061 

06964 

02935 

0. 

32425 

34234 

03809 



0.31234 

70770 

40003 

0* 

00000 

00000 

00000 



0.33023 

93550 

01260 

0. 

97390 

65285 

17172 

n 

= 10 

0.06667 

13443 

08688 

0. 

86506 

33666 

88985 



0. i 4945 

13491 

50581 

0. 

67940 

95682 

99024 



0.21908 

63625 

15982 

0. 

43339 

53941 

29247 



0.26926 

67193 

09996 

0. 

14887 

43389 

81631 



0.29552 

42247 

14753 


+1 . n 

The above tcibulation applies to f(x)dx = H^F(a^) where 

However, these entries can be modified to apply to any interval [a,b 
follows to evaluate: 


-l<a.<l 

3 

1 as 
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n 


J F(X) dK = I. % F(x^) 



/ = / 

For Eq. D.2, the "new 

’’ W . and 
3 

\A/ - - 


vv^ - 

/ 

2 

la,l -t Jbi 

X 

W 

2 

For example, consider 


n 

J F(x) dx 

= I 

0 

Hence, 

II 


-) 0 +■*'/) 


*< • (-^) «j 


For the 3-station case (n=3) , for example, one obtains! 


j 

a. 

3 

H, 

3 

X. 

3 

W. 

3 

1 

-.77459... 

0.55555... 

0.11270166... 

0.277777. . . 

2 

0 

0.88888. . . 

0.50 

0.44444. . . 

3 

+.77459 

0.55555. . . 

0.8872983. . . 

0.277777... 


Similarly, one may perform Gaussian quadrature in two and three 
dimensions by, respectively, 

f f 


(D.2) 


(D.2a) 


(D.3) 


(D.4) 


(D.5) 


n J <^5 =. 2 ^ L L % FCf-. , 7 ) ( d . 6 ) 

Conversions similar to those given by Eq. D.2a may be employed for other 
limits of integration. 

For quadrature over . triangles , cones, tetrahedra, etc,, see Refs. 14, 

15, and 17. 
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